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General Listing and Description of Primary ADS Data Types . 
In - Input device n of the ADS 

Xn - sensory "reading" of input device In (may be 

proprioceptive) 
XRFn - a specified range/purview of In 

RF - a rule that is "true" if Xn is included in XRFn 
BF - a set of RF's identifying a "doing" 
RFs - RF about the self ADS 

RFsB - an RFs identifying a doing 'of the ADS 
RFsM - an RFs identifying a "metabolic" status, of the ADS 
RFsE - an RFs identifying an "emotion" of "feeling" of the ADS 
BFs - a set of RFs' s identifying the doings or metabolism or 

feelings of the self ADS 
RFM - a unique marker referring to an RF 
BFM - a unique marker referring to a BF 

PFM - an arbitrary unique marker to be used to refer to a PF 
Rx - a "concrete" set of "sensed" RFM ' s referring to a sensed 

" concrete " ob j ect 
Ri - an "abstract" set of RFM's 

Px - a "concrete" set of allocated PFM's plus "concrete "• RFM- 
set 

Pi - a set of PFM's and RFM's referring to an "abstract 

object", often a single PFM 
Ris - the "self" object 

r - a specified spacio- temporal relationship, including the 
null relation 

SE - a single-relation abstract situation, i.e., an r between 
.among abstract objects, including a self object; thus 
SE = r (Ris, Pil, Pi2, . . ) 
Si - a Boolean set .of SE"' s defining an abstract situation 
dsd - an "incremental" action decision for a self-object 
Lx - a location of a (usually-concrete) object, i.e., an Rx/Px 
Vx - a vector of a (usual ly- concrete ) object, i.e., an Rx/Px 
Ex - an "event", for example described as a data row: 

Rx/Px. . .Lx. . .Vx. . .BF 
Sx - a concrete situation described as a set of Ex's 
PF - a "hierachied" rule that if (from the viewpoint of the 

tested object) the tested concrete situation (Sx) is included 
in the abstract situation (Si) of the rule, then DO the 
incremental action decision of the rule (dsd) , each set of 
hierarchied PF's associated with an object being adequate for 
incremental simulation 
SxC - the "now" Sx of an ADS, including access to the PF's 

referred to by the PFM's of the Px' s of the Ex's 
SxTn - (SxTl=SxC) from n=2, the ' nth incremental computation (in 

simulation) of the predicted situation of an ADS 
Sip - an abstract situation (Si) of the self ADS which 
identifies a (hierarchied) problem p 
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Sigp - an abstract situation (Si) of the self ADS which 

identifies a (hierarchied) subgoal g attached to the problem 

- a hierarchied default real-time action decision attached 
to an abstract situation of the self ADS 

- a hierarchied trial (to try to get to a later subgoal 
without incurring a worse problem) incremental action 
decision attached to an abstract situation of the self ADS 

- a "coordinated" real-time action decision for the ADS 
equal to (based on) a "successful" dTd (trial incremental 
decision} 

- a plan -(a hierarchied set of subgoals g) , each subgoal g 
having associated hierarchied dD's and dTd's 

- the nth subgoal of a plan to solve the problem p 

- one of the "look-for" Pi's (abstract objects) of the next 
Sigp (of the next subgoal g) , i.e., the next Gpn 

- one of the "look-for" RF's generated by finding (from a 
list of known concrete objects with their associated ^ RF ' s ) 
concrete objects including a current Pil and heurist ically- 
selecting RF's to look for 
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DATA FLOW IN AUTONOMOUS DECISION SYSTEM 



4 — /XRF 1 / *■ 
-/XRF2/ *- 



D WPFM's/ *— <^ 



PF's 7- 




PREDICT ION 
~S 



/SxTn/ 



(Sx OSi?) /dTd/ 



RELEVANCY * 
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ACTION 



SxC = Ris 

Ex1 = Px (RFM's, PFM's) . . Lx • • Vx..BFM's/ 
Ex2 



Exn 




o UPPER-MOST NODE IS THE ABSENCE 
OF THE RELEVANT PROBLEM 
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EXAMPLE COMPUTATION FLOW FOR TESTING WHETHER A GIVEN 
CONCRETE SITUATION (Sx) IS INCLUDED IN A GIVEN ABSTRACT 
SITUATION (Si), ONE SUB - EVALUATION (SE) AT A TIME: 



Definition Reminders: 

( Pxl= [PFM X , PFM 2 , . . . PFM n / RFM X , RFM 2 . . . RFM n ] . . . Lx x . . . Vx x . . .BFM'sJ 
(Px2= [PFM 1# PFM 2/ . . ,PFM n /RFM 1/ RFM 2 . . . RFMJ . . . Lx 2 . . . Vx 2 . . .BFM's 2 ) 
Sx = ( . ) 

( . .'...J 
(Pxn = [PFM W PFM 2 , . . . PFM n ;RFM 1/ RFM 2 . . .RFMJ . . . Lx n . . . Vx n . . .BFM'sJ 

SE= r (Pil, Pi2 , . . . Pin) where any abstract thing (Pi) may 

specify one or more doings (BFM's) and 
where each Pi is a set of PFM's and a 
set of RFM's 



Computation Flow : 



IS Pxl INCLUDED IN Pil? (i.e., 
IS Pil A SUBSET OF Pxl? BFM'S? 



IS Pi2 A SUBSET OF Pxl? BFM'S? 



IF YES, Pxl MAY STAND FOR Pil 
IN THE RELATION r (PROVIDED 
THE BFM'S OF Pil, IF ANY, ARE 
A SUBSET OF THE BFM'S OF Pxl) 

IF YES, Pxl MAY STAND FOR Pi 2 



IS Pin A SUBSET OF Pxl? BFM'S? 

IS Pil A SUBSET OF Px2? BFM'S? 

IS Pin A SUBSET OF Px2? BFM'S? 

IS Pil A SUBSET OF Pxn? BFM'S? 

IS Pin A SUBSET OF Pxn? BFM'S? 



IF "YES, Pxl MAY STAND FOR Pin 

IF YES, Px2 MAY STAND FOR Pil 

IF YES, Px2 MAY STAND FOR Pin 

IF YES, Pxn MAY STAND FOR Pil 

IF YES, Pxn MAY STAND FOR Pin 



FOR ALL PERMUTATIONS OF Px'S STANDING FOR' Pi 'S, 
RESPECTIVELY, COMPUTE WHETHER THE r IS TRUE (FROM THE VIEWPOINT 
OF THE Lx/Vx OF THE- APPROPRIATE "SELF" ROW OF THE Sx, I.E., THE 
APPROPRIATE Px) CONSIDERING THE Vx'S AND Lx'S OF OTHER Px'S 
STANDING FOR THE Pi ' S OF THE RELATION r. 

FOR ALL "TRUE" SUCH RELATION COMPUTATIONS, THERE IS SE 
INCLUSION. OTHERWISE, NOT. [FOR Si INCLUSION DETERMINATION, THE 
BOOLEAN COMPUTATIONS AMONG THE SE'S. OF THE Si MUST BE DONE.] 
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*~ This P is e the main brain code. It determines the inclusionals for all 
decision making. 

^/25/9?7Rick added support for Story telling data using lecture mode 
and added Dans extra parm in the relations # cal 1 . 
04/10/91 - Changed method of testing for body relations . Now any Row 
can do a test for HHT's by specifying itself as the 1st 
ri, ri2=to rfs that refer to HHT regs, and _ relop«FEEL 
05/13/91: Added code to continue scanning SE's, even if current SE 

fails when the NextOp is BOR. 
07/29/91- Added code to allow to handle Vsortof" of invalid SE s. 

If your SE spec's an RI that cant be found, then it was 
assumed FALSE. Now, if the preceeding NextOp is BNOT, then 
that boolean will be applied, and the SE will become. TRUE. 



} Unit Si_mod; 



Owner: TFL 



L= Copyright (c) 1989-1991 Anthrobotics 



Upcoming changes to SIMOD, because of TFL. 



• Onehit will be replaced with Nhits. This allows for dsd averaging. 

(this can be up to 20, the size of the datalist buffer.) 
° Relative row/relrownum need to be expanded in SxRow to n hits. 



{ } Interface ( 

Uses NewTypes, Types, Lists, Relation, SiStuff , DatList, Sxsturf / 

Const MaxSiHits : Integer = 1; (Tells how many SIStatuss to allow) 



) 



) 



PROCEDURE Si tuat ion_Inclus ion (Var SiListToTest 
set by Rxs) 



that hit} 



Var SisThatHit 

Var TheSx 
Var Sxlndex 

Def aultRow 



: DataList; {What Sis to test; 

': DataList; {Returns list of Sis 

: ListPtr; 

: SxIndexArray; 

: SxRowPtr) ; 



} Implementation { 
Uses RxStuff l , RiStuff , Strategy ; 

Const BreakSi : Word = 0; {used for debugging only! 



{ Situation Methods 

PROCEDURE Situation_lnclusion (Var SiListToTest 
set by Rxs) 

Var SisThatHit 

that hit} 

Var TheSx 
Var Sxlndex 

DefaultRow 



J 



) 



: DataList; (What Sis to test; 

: DataList; {Returns list of Sis 

: ListPtr; 
SxIndexArray; 
: SxRowPtr) ; 



0 



Purpose : 



This is it. The main cheese, where men are men and sheep are scared. 
This is where all the brain inclusionals occur. 

Be in awe, mortal. 



Var SxRowPtrl, 
SxRowPt r2 
CurrentRI 
ValidRow 
ANotSE, 
SIFailed, 
SEPassedDef aul t , 
SEPassed, 
SIStatus 
CurrentSi 
SiNumber 
SENum : 
SxRowCountl 
SxRowCount2 
PrevHi tRxs 
PrevHi tRows 



SxRowPtr; 

Array [0..1] of RiPtr; 
Boolean ; 



(Goes TRUE once we know weve failed.} 
{The boolean status of the SE's so far.} 



Boolean ; 
SiPtr ; 
Byte ; 
Integer; 



Byte; 
Array [ 0 . 
Array [ 0 . 



1,1, 
1,1. 



. MaxSesPerSI ) of SxRowPtr; 
. MaxSesPerSi] of Integer; 
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PROCEDURE" ChVckl^d"_SetlprevUsed_Ris (Var TheRow : SxRowPtr , 



RiCol , 

SxRowNum : Integer) ; 



Var Col, Row : Integer 
Begin 



PrevHitRows [RiCol , SENum] : =SxRowNum; 
PrevHitRxs [RiCol, SENum] :=TheRow; 
For Row:=l to SENum do 

r °If C cirrentSl".SiRec.Ses(Row] . TheRis [Col ) =RiNum then 

Begin r 

TheRow PrevHitRxs [Col , Row] ; 

PrevHitRows [RiCol , SENum] : =PrevHi tRows [Col, Row] / 
PrevHitRxs [RiCol , SENum] :=TheRow; 
e x i t ; 

end; 

end; {check and set prevused ris) ^ ^ 

FUNCTION" SxRow^InlsubEvaKRiNum, RiCol: Integer; Var TheSxRow : SxRowPtr; Var 
Row: Byte) : Boolean; 
Begin 

SxRow_In_SubEval : =True ; 
TheSxRow : =De fault Row ; 
If RiNumoSelfRI then 

Begin TheSxRow ; . = SxRowPtr (TheSx A . Find_Element {Sxlndex [Row] .IndexPos)); 
If RiNumoAnyRi then t . 

SxRow_In_SubEval : =TheSxRow A .Matchesji (CurrentRi [RiCol] ) 

end 

else If (Row>l) and (RiNum^Self Ri ) then 
SxRow__In_SubEval : =False 
end; (SxRow in subeval) j 

FUNCTION ~ Find^Ri (RiNum, RiCol , SkipRow : Integer; Var SxRow: SxRowPtr; Var Row: 
Byte) : Boolean; 

Var Hit : Boolean; 
Begin 

Hit : «False; 

If RiNumoAnyRi then 

While (Not Hit) and (Row<TheSx A . Count ) do 

Begin 

Inc (Row) ; 

If RowoSkipRow then 
Begin 

Hit : =SxRow_in_SubEval ( RiNum , RiCol , SxRow, Row) ; 
If Hit then 

Check_And_Set_PrevUsed_Ris (SxRow, RiNum, RiCol, Row) 
else SxRow:=Nil 

end 

else SxRow: -Nil; 

end 
else 

Begin 

Hit : =True ; 

Row : =TheSx"\ Count ; 

SxRow: -SxRowPtr (TheSx A . Find_Element (Row) ) ; 

end; 
Find^Ri : =Hit ; 

end; (find ri } ^ 

PROCEDURE Combine__Boolean ; 
Begin 

With CurrentSI A .SIRec do 
Begin 

If SENum>l then with Ses (SENum-1] do 
Case NextOp of 
BNot , 

BAnd : SIStatus := SIStatus and SEPassed; 
BXor : SIStatus := SIStatus Xor SEPassed; 
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BOr : SIStatus := SIStatus or SEPassed; 

end 

else SIStatus : =SEPassed; 

If (SEPassed) then De f aul tRow A . Set Re l_Row ( SxRowPt r 2 ; „ Vji1im h 
SIFailed =(SIStatus = False) and (Ses [SENum] . NextOp-BAnd) ; { lookahead 

boolean shortcut} 
end / 

end/ (Combine boolean) . 

(----- " ' 

BS9i For siNumber:=l to SiLis tToTes t . Dree , Used do 

For ^ N ^i"; t ToTest .Dree . Data (S INumber] < > 0 ) then (loop for each SI until you 

have a hit . . . } 

Be9in if SiListToTest . Dree. Data [SiNumber) =BreakSI then {DEBUG} 
SENum : =0 ; 

SiPtrtSiList^in^ ^ Get current SI > 

SIStatus := True; . {Until proven guilty...) 
SIFailed := False; 

FillChar( PrevHitRxs, SizeOf (PrevHitRxs) , 0 ); (Clear PrevHitRxs} 
FillChar( PrevHitRows, SizeOf (PrevHitRxs) , 0 )/ 

With CurrentSI A .SIRec do . » 

Repeat (Until no more subevals, or SI fails.) 

Inc (SENum) ; 
SxRowCountl : =0 / 

ANotSE:= (SENum>l) and {This handles special case 

where se is true if} ^ ^ [SENum - i ] . NextOp-BNot ) , (no 2 RIs hit, but nextop = 
NOT; (SE true) } 

SEPassedDe fault : =ANotSE; 
SEPassed ■ = F a 1 s e ; 

CurrentRifo] : =RiPtr (RiList . Find_Element (Ses [SENum] ,TheRis[0] ) ) ; 
With Ses [SENum] do - 

Repeat (find riO loop) 

If FindJRI (TheRis [0] , 0, 0, SxRowPtrl, SxRowCountl) then 

Begin . , 

SxRowCount2 :=0; (search from top of sxlist) 
Repeat (find ril loop) • 
CurrentRi [1] ^RiPtr (RiList . Find_Element (TheRis [1] ) ) ; 
If Op^IsFeeling then 
Begin 

SxRowCount2 : =TheSx A . Count ; 
SxRowPtr2 : ^SxRowPtrl ; 

SEPassed: - (SxRowPtrl" .Matches_Ri (CurrentRi [1] ) ) / 
If ANotSE then 

SEPassed := (Not SEPassed); 
SEPassedDe fault : -SEPassed; 
end 
else 
If 

Find_RI (TheRis [1] , 1 , SxRowCountl, SxRowPtr2 , SxRowCount2) then 

Begin 

SEPassed : = (Relations [Op] (SxRowPtrl , SxRowPtr2 , 

DefaultRow*,OpParm)); ^ ^ SEPassed : =Not SEPasse d; 

SEPassedDe fault : =SEPassed ; 
end 

else If SxRowCount 2 > = TheSx A . Count then 
SEPassed : =SEPassedDef aul t ; 
Until (SEPassed) or (SxRowCount2>=TheSx A .Count) ; 

end 

else SEPassed : =SEPassedDef ault ; 
Until (SxRowCountl>=TheSx A . Count) or (SEPassed); 
Combine Boolean; . _ . . , x 

Until (SIFliled) or {means this SI has def mately failed.) 

(Ses [SENum] . NextOp=NoOp) ; {we hit last SE in the Si) 
If (SIStatus) and 

(SisThatHit . Append I tern (1 , SiNumber) ) then 
exit; 

end; (situation inclus ional } { s i mod unit} 
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STEPS IN A COMPUTER PROGRAM IMPLEMENTING 
NATURAL LANGUAGE AND STORY PRODUCTION 
IN AUTONOMOUS DECISION SYSTEMS 



PROVIDING COMPUTER PROCESSING MEANS FOR PROCESSING DATA 



PROVIDING STORAGE MEANS FOR STORING DATA ON A STORAGE MEDIUM; 
WHEREIN SUCH DATA COMPRISES NON- LINGUISTIC DISCRETE DATA-TYPES 
AND CONFORMING TO EACH OF SUCH DISCRETE NON -LINGUISTIC DATA- 
TYPES, A SET OF NON-LINGUISTIC DISCRETE DATA ELEMENTS 



PROVIDING FOR INPUT INFORMATION ABOUT CURRENT CIRCUMSTANCES OF 
THE HUMANOID AUTONOMOUS DECISION SYSTEM 




* 


PROVIDING FOR OUTPUT SIGNALS 
HUMANOID AUTONOMOUS DECISION 


FOR IMPLEMENTING DECISIONS OF THE 
SYSTEM 



PROCESSING DATA REGARDING "SELF" TO PROVIDE AT LEAST ONE 
"SELF 11 REPRESENTATION 



I 



PROCESSING DATA REGARD ING CURRENT CIRCUMSTANCES TO PROVIDE A 
FIRST NON-LINGUISTIC STRUCTURED "SELF" -S I TUATION 
REPRESENTATION 



INITIATING AND STORING DATA REGARDING A SET OF HIERARCHICALLY- 
ORGANIZED , RELEVANT, NON-LINGUISTIC RELATIONAL "SELF"- 
SITUATIONS 



PROCESSING DATA TO DETERMINE INCLUSIONS OF A SUCH FIRST NON- 
LINGUISTIC STRUCTURED "SELF"-SITUATION WITHIN SUCH NON- 
LINGUISTIC RELATIONAL "SELF" -SI TUATIONS. TO DETERMINE ANY 
RELEVANCE OF SUCH FIRST STRUCTURED "SELF" -SITUATION TO A SUCH 
"SELF" 
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, -A - 

WHEREIN SUCH DATA REGARDING SUCH SET OF HIERARCHICALLY- 
ORGANIZED , RELEVANT, NON-LINGUISTIC RELATIONAL "SELF"- 
SITUATIONS INCLUDES DATA REGARDING A SET OF 
HIERARCHICALLY-ORGANIZED PROBLEM RELATIONAL "SELF 1 ' - 
SITUATIONS, AND, IN ASSOCIATION WITH ESSENTIALLY EACH OF 
SUCH PROBLEM RELATIONAL "SELF"-SITUATIONS , A SET OF 
HIERARCHICALLY-ORGANIZED PLAN RELATIONAL "SELF" - 
SITUATIONS , 

1 * ; 

INITIATING AND STORING DATA REGARDING RESPECTIVELY LINKING 
ESSENTIALLY EACH SUCH DISCRETE DATA- TYPE OF SUCH HUMANOID 
AUTONOMOUS DECISION SYSTEM WITH A RESPECTIVE WORD/PHRASE 
CATEGORY OF A FIRST NATURAL LANGUAGE ^ 

I 

INITIATING AND STORING DATA REGARDING RESPECTIVELY LINKING 
SELECTED WORDS/PHRASES OF EACH SUCH LINKED WORD/PHRASE 
CATEGORY OF SUCH FIRST NATURAL LANGUAGE WITH RESPECTIVE SUCH 
DISCRETE DATA ELEMENTS OF EACH SUCH DISCRETE DATA-TYPE SO 
LINKED WITH A SUCH .LINKED WORD / PHRASE . CATEGORY 



PROCESSING DATA REGARDING A FIRST COMMUNICATION TO BE MADE BY 
SUCH HUMANOID AUTONOMOUS DECISION SYSTEM TO TRANSFORM A 
SPECIFIED SET OF NON-LINGUISTIC DATA ELEMENTS INTO A SUCH 
FIRST COMMUNICATION IN SUCH FIRST NATURAL LANGUAGE, COMPRISING 

. -A — 

(1) PROCESSING DATA REGARDING IDENTIFYING WHICH OF SUCH 
DISCRETE DATA ELEMENTS OF SUCH DISCRETE DATA- TYPES IS TO 
FORM PART OF SUCH FIRST COMMUNICATION __ 

i 

(2) PROCESSING DATA REGARDING SELECTING NATURAL -LANGUAGE 
SNIPPETS FOR POINTING TO THE SUCH CATEGORIES OF SUCH 
NATURAL -LANGUAGE CORRESPONDING TO WHICHEVER OF SUCH 
.DISCRETE DATA- TYPES INCLUDES EACH SUCH DISCRETE DATA 
ELEMENT WHICH IS TO FORM PART OF SUCH FIRST COMMUNICATION 

j 

(3) PROCESSING DATA REGARDING SELECTING A WORD/PHRASE OF 
SUCH NATURAL -LANGUAGE CORRESPONDING TO EACH SUCH DISCRETE 
DATA ELEMENT WHICH IS TO FORM PART OF SUCH FIRST 
COMMUNICATION 



▼ 
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, i 

(4) PROCESSING DATA REGARDING 1 PRODUCING FROM THE GRAMMAR 
PRACTICES OF SUCH NATURAL LANGUAGE AND FROM SUCH SNIPPET 
SELECTIONS AND FROM SUCH WORD /PHRASE SELECTIONS SUCH 
FIRST COMMUNICATION IN SUCH NATURAL LANGUAGE 

r — 

INITIATING AND STORING DATA REGARDING, IN ASSOCIATION WITH 
EACH OF SUCH RELEVANCE SELF-RELATIONS, A SET OF 

HIERARCHICALLY-ORGANIZED "SELF" TRIAL DECISIONS 

I 

PROCESSING DATA REGARDING SUCH "SELF" TRIAL DECISIONS TO 
PROVIDE DATA REGARDING, WHEN A SUCH RELEVANCE SELF-RELATION 
HAS INCLUDED A SUCH SPECIFIC CIRCUMSTANCE, A CURRENT SELECTED 
SUCH "SELF" TRIAL DECISION ' 

I " 

PROCESSING DATA REGARDING USING SUCH RELEVANCE MEANS TO 
DETERMINE THE RELEVANCE OF SELECTED AMENDED STRUCTURED- 
SITUATIONS ARISING BY SIMULATION FROM USING A SELECTED SUCH 
"SELF" • TRIAL DECISION FOR THE "SELF" OBJECT WITHIN THE THEN 
SUCH SPECIFIC CIRCUMSTANCE . 



I 



PROCESSING DATA REGARDING SELECTING, DEPENDING UPON THE THEN 
SPECIFIC RELEVANCES UPON OPERATION OF SUCH TRIAL-DECISION- 
TESTING MEANS, A SUCH "SELF" TRIAL DECISION AS A THEN SELF- 
DECISION OF SUCH INTELLIGENT SYSTEM 


1 


r 


ACQUIRING AND STORING, WHEN SUCH FIRST COMMUNICATION IS TO BE 
THE TELLING OF A "TRUE" AND "INTERESTING" "PERSONAL HISTORY" j 
STORY ABOUT THE EXPERIENCES OF SUCH HUMANOID AUTONOMOUS 
DECISION SYSTEM, SEQUENTIAL DATA FOR USE IN SUCH TELLING, 
COMPRISING 






f 




(1) FOR USE IN A FIRST STORY ELEMENT OF SUCH STORY, 
PROCESSING DATA, WHEN A FIRST SELECTED LEVEL OF A SELF- 
PAIN SIGNAL HAS BEEN ATTAINED BY SUCH HUMANOID AUTONOMOUS 
DECISION SYSTEM, REGARDING FIRST DATA ABOUT A CURRENT 
TIME AND A CURRENT PLACE AND A "CONCRETIZED" CURRENT 
PROBLEM RELATIONAL " SELF " -SITUATION TO PROVIDE DATA 
REGARDING THE CONCRETE OBJECTS OF A THEN CURRENT 
STRUCTURED "SELF" -SITUATION WHICH ARE INCLUDED IN SUCH 
CURRENT PROBLEM RELATIONAL " SELF " -SITUATION 
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: i . 

(2) FOR USE IN A SECOND STORY ELEMENT OF A SUCH STORY, 
PROCESSING DATA, WHEN A SUCH THEN CURRENT STRUCTURED 
"SELF" -SITUATION IS INCLUDED IN A FIRST PLAN RELATIONAL 
"SELF" -SITUATION, REGARDING SECOND DATA ABOUT A CURRENT 
STRATEGY AND A "CONCRETIZED" CURRENT SUCH PLAN RELATIONAL 
"SELF" -SITUATION, TO PROVIDE DATA REGARDING THE CONCRETE 
OBJECTS OF A SUCH THEN CURRENT STRUCTURED "SELF"- 
SITUATION WHICH ARE INCLUDED IN SUCH FIRST PLAN 
RELATIONAL " SELF" -SITUATION 

i 

(3) FOR USE IN A THIRD STORY ELEMENT OF A SUCH STORY, 
PROCESSING DATA, WHEN A SUCH THEN CURRENT STRUCTURED 
"SELF" -SITUATION IS INCLUDED IN A SECOND PLAN RELATIONAL 
"SELF" -SITUATION, REGARDING THIRD DATA ABOUT A CURRENT 
STRATEGY AND A "CONCRETIZED" SUCH SECOND PLAN RELATIONAL 
"SELF" -SITUATION, TO PROVIDE DATA REGARDING THE CONCRETE 
OBJECTS OF A SUCH THEN CURRENT STRUCTURED "SELF" - 
SITUATION WHICH ARE INCLUDED IN SUCH SECOND PLAN 
RELATIONAL " SELF " - S ITUATION 

(4) FOR USE IN A SEQUENTIAL STORY ELEMENT OF A SUCH 
STORY, PROCESSING DATA, WHEN A SUCH SEQUENTIAL CURRENT 
STRUCTURED " SELF" - SITUATION IS INCLUDED IN A NEXT 
IDENTIFIED PLAN RELATIONAL " SELF S ITUATION, REGARDING 
SEQUENTIAL DATA ABOUT A THEN CURRENT STRATEGY AND A 
"CONCRETIZED" SUCH NEXT IDENTIFIED PLAN RELATIONAL 
"SELF" -SITUATION, TO PROVIDE DATA REGARDING THE CONCRETE 
OBJECTS OF A SUCH SEQUENTIAL CURRENT STRUCTURED "SELF"- 
SITUATION WHICH ARE INCLUDED IN SUCH NEXT IDENTIFIED PLAN 
RELATIONAL " SELF" -SITUATION 



(5) FOR USE IN A FINAL STORY ELEMENT OF A SUCH STORY, 
PROCESSING DATA, WHEN A SECOND SELECTED LEVEL OF A SELF- 
PLEASURE SIGNAL HAS BEEN ATTAINED BY SUCH HUMANOID 
AUTONOMOUS DECISION SYSTEM, REGARDING FINAL DATA ABOUT A 
"CONCRETIZED" SUCH IDENTIFIED GOAL PLAN RELATIONAL 
"SELF" -SITUATION, TO PROVIDE DATA REGARDING THE CONCRETE 
OBJECTS OF A SUCH FINAL CURRENT STRUCTURED "SELF"- 
SITUATION WHICH ARE INCLUDED IN SUCH IDENTIFIED GOAL PLAN 
R ELATIONAL "SELF" -SITUATION 

~ i 

PROCESSING DATA REGARDING SEARCHING OF ANY SUCH STORED 
SEQUENTIAL DATA TO PROVIDE USER- CONTROLLED SELECTION AMONG 
SUCH STORED SEQUENTIAL DATA ' 



PROCESSING DATA REGARDING A USER- SELECTED LATER USE OF SUCH 
SEQUENTIAL DATA TO PROVIDE A LATER TELLING OF A STORY BASED 
UPON SUCH STORED SEQUENTIAL DATA 
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STEPS IN A COMPUTER PROGRAM FOR IMPLEMENTING 
FIRST NATURAL LANGUAGE INTERPRETATION FUNCTIONS IN 
A HUMANOID AUTONOMOUS DECISION SYSTEM INTERPRETING 
INCOMING FIRST NATURAL LANGUAGE FROM AN OTHER 



STORING IN A COMPUTER IN FORMAT I ON -STORAGE DEVICE DATA 
COMPRISING NON-LINGUISTIC DISCRETE DATA- TYPES AND, CONFORMING 
TO EACH OF SUCH DISCRETE NON-LINGUISTIC DATA-TYPES, A SET OF 
NON-LINGUISTIC DISCRETE DATA ELEMENTS - 

, ▼ — — 

INITIATING AND STORING DATA REGARDING RESPECTIVELY LINKING 
ESSENTIALLY EACH SUCH DISCRETE DATA-TYPE OF SUCH HUMANOID 
AUTONOMOUS DECISION SYSTEM WITH A RESPECTIVE WORD/PHRASE 
CATEGORY OF SUCH FIRST NATURAL LA NGUAGE 

j 

INITIATING AND STORING DATA REGARDING RESPECTIVELY LINKING 
SELECTED WORDS/PHRASES OF EACH SUCH LINKED WORD/ PHRASE 
CATEGORY OF SUCH FIRST NATURAL LANGUAGE WITH RESPECTIVE SUCH 
DISCRETE DATA ELEMENTS OF EACH SUCH DISCRETE DATA- TYPE SO 
LINKED WITH A SUCH LINKED WORD/PHRASE CATEGORY 

l ^ 

PROVIDING INPUT INFORMATION ABOUT CHARACTERISTICS OF SUCH 
INCOMING NATURAL LANGUAGE SUFFICIENT TO IDENTIFY EACH 
VOCABULARY ELEMENT, SNIPPET TYPE FOR EACH SUCH ELEMENT, AND 
GRAMMATICAL FUNCTION FOR EACH SUCH ELEMENT 



PROCESSING DATA REGARDING SUCH INPUT INFORMATION TO PROVIDE A 
NON -NATURAL- LANGUAGE CONCRETE CIRCUMSTANCE INTERPRETATION OF 
STTfH TNPTJT INFORMATION 






r ... 




WHEREIN SUCH TRANSLATION MEANS COMPRISES NATURAL -LANGUAGE 
DEFAULT-SELECTING MEANS FOR PROCESSING DATA REGARDING 
SELECTION OF NON -NATURAL -LANGUAGE DATA TYPES AND DATA FOR 
CORRESPONDENCE WITH SUCH INCOMING INFORMATION 




f 
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4 



INITIATING AND STORING DATA REGARDING THE RELEVANCE TO THE 
HUMANOID AUTONOMOUS DECISION SYSTEM OF SUCH CIRCUMSTANCE 
INTERPRETATION, COMPRISING DATA REGARDING A SET OF 
HIERARCHICALLY -ORGAN I ZED , RELEVANT, NON-LINGUISTIC RELATIONAL 
"SELF"-SITUATIONS _ 



PROCESSING DATA TO DETERMINE INCLUSIONS OF SUCH NON-NATURAL- 
LANGUAGE CONCRETE CIRCUMSTANCE INTERPRETATION WITHIN SUCH NON- 
LINGUISTIC RELATIONAL "SELF" -SITUATIONS TO DETERMINE ANY 
RELEVANCE OF SUCH NON -NATURAL- LANGUAGE CONCRETE CIRCUMSTANCE 
INTERPRETATION A SUCH "SELF" OF SUC H RELEVANCE MEANS 



I 



WHEREIN SUCH DATA REGARDING SUCH SET OF HIE RARCH I CALLY - 
ORGANIZED, RELEVANT, NON -LINGUISTIC RELATIONAL "SELF"- 
SITUATIONS INCLUDES DATA REGARDING - 



(1) A SET OF HIERARCHICALLY-ORGANIZED PROBLEM 
RELATIONAL "SELF" -SITUATIONS 



1 





, * — — — ■ 

(2) IN ASSOCIATION WITH ESSENTIALLY EACH OF SUCH 
PROBLEM RELATIONAL "SELF" -SI TUATIONS , A SET OF 
HIERARCHICALLY-ORGANIZED PLAN RELATIONAL "SELF"- 
SITUATIONS 








PROVIDING SUCH INTERPRETING HUMANOID AUTONOMOUS DECISION 
SYSTEM WITH ABILITIES TO SELECT FOR USE IN INTERPRETATION 
SIMILAR COGNITIVE, RELEVANCY , AND EMOTION SYSTEMS TO THOSE OF 

THF, HTHP.R 




r 


PROCESSING" DATA REGARDING A STORY-SERIES OF SUCH INCOMING 
INFORMATIONS TO. PROVIDE A STORY-SERIES OF SUCH N ON -NATURAL - 
T.ANfiHAfiE CONCRETE CIRCUMSTANCE INTERPRETATIONS 



, Y — 

PROCESSING DATA REGARDING SUCH STORY-SERIES OF SUCH NON- 
NATURAL- LANGUAGE CONCRETE CIRCUMSTANCE INTERPRETATIONS TO 
PROVIDE A LEARNED MODIFICATION OF A SUCH NON-LINGUISTIC 
DISCRETE DATA ELEMENT ______ 



Y 
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WHEREIN SUCH STORY -SERIES OF SUCH NON -NATURAL -LANGUAGE 
CONCRETE CIRCUMSTANCE INTERPRETATIONS IS TREATED AS A 
TEMPORALLY- INCREMENTAL SERIES, RESPECTIVELY, OF "PRESENT" 
CONCRETE SELF-SITUATION REPRESENTATIONS OF A TEMPORALLY- 
INCREMENTAL SERIES OF RESPECTIVE ENVIRONMENTAL SITUATIONS 



I 



WHEREIN EACH STORY ELEMENT OF SUCH STORY-SERIES OF SUCH NON- 
NATURAL -LANGUAGE CONCRETE CIRCUMSTANCE INTERPRETATIONS 
COMPRISES 



I 



A SELF REPRESENTATION AND A SET OF EVENT REPRESENTATIONS, 
EACH SUCH EVENT REPRESENTATION BEING REPRESENTED 
SPECIFICALLY SPACIO- TEMPORALLY RELATIVE TO SUCH SELF 
REPRESENTATION, AND EACH SUCH EVENT REPRESENTATION 
INCLUDING , 



(1) A BEHAVIORAL-TYPE DESIGNATION SELECTED FROM A 
SET OF BEHAVIORAL-TYPE DESIGNATIONS, EACH SUCH 
BEHAVIORAL -TYPE DESIGNATION OF SUCH SET OF 
BEHAVIORAL- TYPE DESIGNATIONS BEING ASSOCIATED WITH A 
SET OF INCREMENTAL BEHAVIORAL SELF-TENDENCIES FOR' 
DETERMINING INCREMENTALLY -PREDICTED SELF-SITUATION 
REPRESENTATIONS FROM A SUCH PRESENTED SELF-SITUATION 
REPRESENTATION, AND 



I 



(2) A SET OF CURRENT-BEHAVIOR DESIGNATIONS 
ASSOCIATED WITH EACH SUCH EVENT REPRESENTATION 
SPECIFYING THE CURRENT BEHAVIORS OF EACH SUCH EVENT 
REPRESENTATION 



WHEREIN ESSENTIALLY EACH SUCH EVENT REPRESENTATION COMPRISES 
AN OBJECT REPRESENTATION REPRESENTING A PARTICULAR OBJECT AS 
PART OF A COLLECTION OF SUCH OBJECT REPRESENTATIONS, EACH SUCH 
OBJECT REPRESENTATION OF SUCH COLLECTION COMPRISING A SUCH 
BEHAVIORAL- TYPE DESIGNATION COMPRISING CHARACTERISTICS OF EACH 
SUCH OBJECT REPRESENTATION OF SUCH COLLECTION, WHEREIN 
ESSENTIALLY EACH OF SUCH CHARACTERISTICS COMPRISES A SUBSET OF 
A SET OF SELF-TENDENCIES AND A CORRESPONDING SUBSET OF A SET 
OF SELF-TENDENCY MARKERS 



T 
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SUCH SET OF SELF-TENDENCY MARKERS HAVING A 1-TO-l 
CORRESPONDENCE WITH SUCH SET OF SELF-TENDENCIES, ONE 
UNIQUE MARKER FROM SUCH SET OF SELF-TENDENCY MARKERS 
CORRESPONDING RESPECTIVELY WITH EACH SELF-TENDENCY OF 
SUCH SET OF SELF- TENDENCIES 



V 

SUCH SUBSET OF SELF-TENDENCIES BEING CONSTRUCTED AND 
ARRANGED TO PERMIT A DETERMINATION OF THE EXPECTED 
BEHAVIOR OF EACH SUCH OBJECT REPRESENTATION WITH RESPECT 
TO ANY MAPPABLE REPRESENTATION OF OTHER OBJECT 
REPRESENTATIONS FROM SUCH COLLECTION OF OBJECT 
REPRESENTATIONS ; 



, __y 

EACH SUCH SELF-TENDENCY CONSISTING ESSENTIALLY OF AN 
INSTRUCTION FOR SELF-BEHAVIOR (OF ANY FIRST OBJECT 
REPRESENTATION TO WHICH SUCH SELF- TENDENCY MAY BE 
ASSIGNED) ON THE CONDITION THAT ANY MAPPABLE 
REPRESENTATION OF OBJECT REPRESENTATIONS FROM SUCH 
COLLECTION, INCLUDING SUCH FIRST OBJECT 
REPRESENTATION, FROM THE VIEWPOINT OF SUCH FIRST 
OBJECT REPRESENTATION, IS INCLUDED IN A SPECIFIED 
SELF-RELATION SELECTED FROM A SET OF SELF -RELATIONS 



WHERE EACH SELF-RELATION OF SUCH SET OF SELF- 
RELATIONS COMPRISES A SPECIFIED SPACE-TIME RELATION 
AMONG A SUCH FIRST OBJECT REPRESENTATION AND AT 
LEAST ONE SUCH OTHER OBJECT REPRESENTATION 



EACH SUCH OTHER OBJECT REPRESENTATION BEING 
SPECIFIED AS A SUBSET OF A SET OF SELF- TENDENCY 
MARKERS, EACH SUCH SUBSET OF SELF- TENDENCY 
MARKERS CORRESPONDING TO THE SUBSET OF SELF- 
TENDENCIES ASSIGNED TO EACH SUCH OTHER OBJECT 
REPRESENTATION. 



T 



WHEREIN SUCH DATA REGARDING A SET OF HIERARCHICALLY -ORGAN I ZED , 
RELEVANT, NON-LINGUISTIC RELATIONAL "SELF" -S I TUATIONS 
COMPRISES (1) A SET OF HIERARCHICALLY-ORGANIZED ABSTRACT SELF- 
PROBLEM REPRESENTATIONS, AND (2) IN ASSOCIATION WITH 
ESSENTIALLY EACH OF SUCH ABSTRACT SELF-PROBLEM 

REPRESENTATIONS, A SET OF HIERARCHICALLY -ORGAN I ZED ABSTRACT 
SELF-PLAN REPRESENTATIONS EACH COMPRISING A SET OF ABSTRACT 
SELF-SUBGOAL REPRESENTATIONS^^ _ 



PROCESSING DATA REGARDING SUCH SELF-PROBLEM REPRESENTATIONS 
AND SUCH SELF-PLAN REPRESENTATIONS TO PROVIDE "SELF-PAIN" AND 
"SELF-PLEASURE" REPRESENTATIONS HAVING ASSESSABLE QUANTITIES 



PROCESSING DATA REGARDING SUCH STORY ELEMENTS OF SUCH STORY- 
SERIES OF SUCH NON-NATURAL-LANGUAGE CONCRETE CIRCUMSTANCE 
INTERPRETATIONS TO IDENTIFY A FIRST SERIES OF SUCH STORY 
ELEMENTS WHICH RESULT IN A SELECTED LEVEL OF UN PRE D I C TE D 
"SELF-PAIN" 



PROCESSING DATA REGARDING SUCH FIRST SERIES OF SUCH STORY 
ELEMENTS TO CREATE A LEARNED SELF-PROBLEM REPRESE NTATION 



PROCESSING DATA REGARDING SUCH STORY ELEMENTS OF SUCH STORY- 
SERIES OF SUCH NON- NATURAL -LANGUAGE CONCRETE CIRCUMSTANCE 
INTERPRETATIONS TO IDENTIFY A SECOND SERIES OF SUCH STORY 
ELEMENTS WHICH RESULT ' IN A SELECTED LEVEL OF UNPRED ICTED 
"SELF- PLEASURE " _ 



PROCESSING DATA REGARDING SUCH SECOND SERIES OF SUCH STORY 
ELEMENTS TO CREATE A LEARNED SELF-SUBGOAL REPRESENTATION 
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} Unit Sagetalk; ( 

. Purpose: ; Owner: TFL 

This unit contains the code that generates story text, based on the 
arousal record in the story2 unit. All kinds of substitutions occur. 
History : 



3/26/91 : Added Marty's sagetalk changes. RG 

7/24/91 : Mods made to reflect use of new synonym calls and to reflect 

spec changes per file SPTELNW3 . ISP . - DS 
7/31/91 : Mods made to reflect new face emotional settings per Jay's 
spec, SAGEFACE . JAY . - DS 

i= Copyright (c) 1989-1991 Anthrobotics 

} Interface { ) 
Uses Crt,Story2, Types, Playback; 

FUNCTION Describe_S tory {Caps : Boolean): Integer; 
PROCEDURE Intro_Phrase {Which : Integer); 

PROCEDURE Then_Phrase (Which : Integer; Pref ix , Suf f ix : Boolean); 
PROCEDURE Problem_Phrase {Which : Integer); 
PROCEDURE Strategy_Phrase (Which : Integer); 
PROCEDURE Decision_Phrase (Which : Integer); 
PROCEDURE NewDecision_Phrase (Which : Integer); 
PROCEDURE Plan_Phrase (Which : Integer); 
PROCEDURE NextNode_Phrase (Which : Integer); 
PROCEDURE Node_Phrase (Which : Integer); 
PROCEDURE Friend_Phrase (Which : Integer); 
PROCEDURE Last_Phrase (Which : Integer); 
PROCEDURE Describe_Arousa Is (Which : Integer ) ; 
PROCEDURE Get Highes t_Regs ; 
( } Implementation ( ) 

Uses General, NewTypes , Register, Face2, 
Terms4 , Terms5 , Terms6 , 

Da t List , Terms 1 , Terms 2 , Terms 3 , GoalStuf f ; 

Const UseCaps: Boolean = False; (if true, then sound__and_Text upcases 1st cha 
Spoke : Boolean ■ False; 

Type Volume = { VSame , VLoud , VNorm , VSof t ) ; 

Pitch = ( PSame , PHiHi , PHi , PNorm, PLo, PLoLo) ; 
Faces = ( FNorm , f Sad , f Grim , fCTime ) ; 

(--- ) 

PROCEDURE Output_Face_Command {Command : Keywords; Parml , Parm2 , Parm3 , Parm4 : 
Short In t) ; 
Begin 

Story File . f Cur rent Command . By tes [1] : =parml ; 
StoryFile . f CurrentCommand . Bytes [2] :=Parm2; 
Story File . f CurrentCommand . Bytes [3 ] : =Parm3 ; 
Story File . f CurrentCommand . By tes [4 ) : =Parm4 ; 
OutPut ('', Command) ; 
end; {output face change) 

PROCEDURE Sound_And_Text (TheVolume : Volume; ThePitch: Pitch; S: StrlSO); 
Const VolumeLevels : Array (Volume ] of Byte » (0,6,5,4); 

PitchLevels : Array[Pitch3 of Byte » (0,8,7,6,5,4); 

Begin 

If UseCaps then S [ 1 ] : =UpCase (S [ 1 ] ) ; 
Spoke : =True ; 
UseCaps := False ; 

Save_Sound {0, VolumeLevels [TheVolume] , PitchLevels [ThePitch] ,10) ; 
OutPut (S , Say) ; 
end; (sound and text) 

( } 

PROCEDURE Show_Blink; 

Const Command : Array [1.. 6] of Keywords * ( LEye , Reye , Display , Wai t , Leye , Reye ) ; 

Parm : Array(1..6] of Shortlnt » (100,100,0,125,-100,-100); 

Var I ' : integer ; 

Begin 

For I : = 1 to 6 do 

Output_Face_Command (Command [ i ] , Parm[ i ] ,0,0,0) ; 
end; (blink) 

( ) 
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PROCEDURE Drive_Face (Var Comms , Prms ; Count : Byte); 
Var Commands : Array [1 . . 1] of Keywords absolute Comms ; 

Parm : Array [1 . . 1, 1 . .4] of Shortlnt absolute Prms ; 

Var I : Integer; 

Begin 

For I:=l to Count do 
Output Face__Command ( Commands [ i ] , parm [ i , 1 J , Parm [i , 2 ] , Parm [ i , 3 ] , parm [i , 4 ] ) ; 
end; "{"Drive face} 

(_ ) 

PROCEDURE Show_Grim; 

Const Command : Array[li.5] of Keywords - ( Eyes , Leye , Reye , Nose , Mouth) ; 

Parm : Array [ 1 . . 5 , 1 . . 4 ] of Shortlnt - 

((-15,0,15,0), (0,-15,-10,0), (0,-15, v-1 0,0), (10,0,0,0), (-10,-20,-10,0)); 
Begin 

Drive Face (Command, Parm, 5) ; 
end; (grim"]" 



PROCEDURE Show^Sad; 

Const Command : Array [1. .4] of Keywords = ( Eyes , Leye , Reye , Mouth ) ; 
Parm : Array [ 1 . . 4 , 1 . . 4 ] of Shortlnt = 

((0,20,0,7), (20,0,-25,0), (20,0,-25,0), (-5,-50,10,0)); 

Begin 

Drivej_Face ( Command , Parm , 4 ) ; 
end; (sad) 

( ) 

PROCEDURE Show_Fear; 

Const Command : Array[1..6] of Keywords • = ( Eyes , Leye , Reye , Mouth , Pupi Is , Nose ) ; 
Parm : Array [ 1 . . 6 , 1 . . 4 ] of Shortlnt = 

((25,20,25,0), (1,50,0,0), (1,50,0,0), (-25, -50, 60,0), (3,0,0,0), (3,0,0,0)); 

Begin 

Drive_Face (Command, Parm, 6) ; 
end ; { show f ear ) 



PROCEDURE Show_Smile; 

Const Command ; Array [1 . . 4] of Keywords = (Mouth, Eyes , Leye , Reye ) ; 
Parm : Array [ 1 . . 4 , 1 . . 4 ] . of Shortlnt = 

((5,35,20,0), (-10,0,5,0), (0,15,0,0), (0,15,0,0)); 

Begin 

Drive_Face (Command, Parm, 4 ) ; 
end; (Smile) 



PROCEDURE Show_Wink; 

Const Command : Array[1..6j of Keywords « ( REye , Leye , Di splay , Wa i t , Reye , LEye ) ; 
Parm : Array [ 1 . . 6 , 1 . . 4 3 of Shortlnt = 

((100, -20, 0,0), (0,30,0,0), (0,0,0,0), (127,0,0,0), (-100, 20, 0,0), (0,-30,0,0)); 
Beg in 

Drive Face (Command, Parm, 6 ); . 
end; (winkj 



PROCEDURE Move_Brows (Up : boolean) ; 

Const Scalar : Array [Boolean) of Shortlnt = (-20,20); ■ 
Begin 

Output__Face__Command ( Leye , 0 , Scalar [up] ,0,0) ; 
Output_Face Command (Reye , 0 , Scalar [up] ,0,0) ; 
end; {Move BrowsJ 



PROCEDURE Til t_Lef tjrows (Up : boolean); 

Const Scalar : Array [Boolean , 1 3 J of Shortlnt = ( ( - 2 0 , - 2 0 , 1 0 ) , ( 2 0 , 2 0 , - 10 ) ) ; 
Begin 

Output_Face__Command (Leye, 0,Scalar[up, 1) ,Scalar [Up, 2} , 0) ; 
Output_Face_Command (Reye, 0,Scalar[up, 3] , 0, 0) ; 
end; (tilt left brows) 



PROCEDURE Look_Around; 

Const Command : Array [1. .7] of Keywords = 
(Eyes, Display, wai t , eyes , display, wait, eyes) ; 

Parm : Array [ 1 . . 7 , 1 . . 4 ) of Shortlnt = 

((0,0, 0,-14), (0,0,0,0), (127, 0,0,0), (0,0,0,28)', (0,0,0,0), (127, 0,0,0), (0,0,0,-14)); 

Begin 

Drive_Face (Command, Parm, 7) ; 
end; (look around) 
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PROCEDURE Ini t_Face (What : Faces) ; 
Const Default : Array [1.. 15] of Shortlnt = 
(15,15,-10,-10,0,4,1,1,10,0,10,-10,0,30,1); 
Begin 

If What=fCTime then 

Move (Default , StoryFile . f Input . f Data, Si zeOf (Default) ) 
else Move ( Las tComp Face ( StoryFile, f Input .fData,SizeOf (Default) ) ; 
Out Put ( ' ' , AbsFace ) ; 

If What=fGrim then Show_Grim else 
If What=fSad then Show_Sad; 
end; (init face) 



FUNCTION Describe_Story (Caps : Boolean): Integer; 
Begin • . .„ 

Spoke := False ; 

UseCaps : =Caps / 

With AStoryRec, StoryFile do 

Begin 

If (NowPorpoisePt roLas tNowPorpoisePt r ) then 
Begin 

Problem_Phrase (AnyTerm) ; 
If TheStratNameo" then 

S trategy_Phrase (Anyterm) ; 

end ; 

If (Hi tSiNodeoLastStoryrec . HitSiNode) then 
If (PlanNameo") and (SGNameo") then 
Plan_Phrase (Anyterm) 

else 

else If (SGNameo' ' ) then Node_Phrase (Axiyterm) ; 
If (NextSINodeoLas tStoryrec . NextSiNode ) and 
(NextSGNameo ' ' ) then 

NextNode_Phrase (Anyterm) ; 
If (NowDSDoLas tStoryrec . NowDSD) then 

NewDecision_Phrase (Ajiyterm) ; 
If Spoke then 

Describe_Arousa 1 s (AnyTerm) ; 

end; 

Describees tory : =StoryFi le . f IOresult ; 
end; {describe story) 



PROCEDURE Introjhrase; 

Var T1,T2,T3,T4: String[70]; 

Begin 

Ini t_Face { f CTime) ; 
UseCaps : -True ; 

Which : = Determine__Which (Which , 6 ) ; 
Case Which of 
1 : Begin 

Tl : =Ins tantly_Terms (anyterm, false, false) ' / 

T2 : = ' while '+ In_Terms (AnyTerm, True , True ) +Ma inFi leName+ ' , is ' ;' 
T3 : = ' where i t ' ' s ' ; 

T4 : =Really_Terms (True , True) + Happen ing_Terms (False, False) + ' . ' ;' 

end; 
2 ; Begin 

Tli-'Well, 

T2 :=' I m' + In_Terms (AnyTerm, True , True) +MainFileName+ ' and if's 

+Today; 

T3 : = ' as if's all'; 

T4 : =Really_Terms (True , True ) + Happen irig^Terms ( False , False )+' . ' / 

end ; 
3 : Begin 

Tl:='It''s a dark and ' +Really_Terms ( true , true )+' stormy night, 

+UserName+ ' , ' ; 

T2:='and I /, m'+ In_Terms (AnyTerm , True , True ) + Ma inFi le Name + ' , ' ; 
T3 : = ' as I ' +Usua 1 ly_Te rms ( True , True ) + ' am , '; 
T4 : = ' minding my own business.'; 

end ; 
4 : Begin 

Tl : = ' You won"t believe this, '; 
T2 : » ' but so help me ' ; 

T3 : = ' every word is' +Really_Terms (True, True) +' true . '; 
T4:='It''s ' +Today+' and 
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I ' ' m' +In_Terms (AnyTerm, True , True ) +Ma inFi leName+ ' . ' ; 
end ; 
5 : Begin 

Tl : = Instant ly_Terms (anyterm, false, false) +' , ; 
T2 : ■ ' I ' ' m' + In_Te rms (AnyTerm , True , True ) +Ma inFi leName + ' '; 
T3 : = ' on ' +Today+ ' ' ; 
T4 : = ' and things are 
' +becoming_Terms (false, false) +Really_Terms (True, True) +'bad. ' / 
end; 
6 : Begin 

Tl : = Instant ly_Terms (anyterm, false, false) +' , ' ; 
T2: = 'it"s all ' +Began_Terms (ANyTerm , True , True ) ; 
T3 :=' while I' 'm' + I : n_Terms (AnyTerm , True , True ) ; 
T4 : =MainFi leName+ ' . ' ; 

end; 

end / 

Sound_And_Text (VNorm, PHi , Tl ) / 
Show_Blink ; 

Sound_And_Text (VNorm, PNorm, T2 ) ; 
Show_Fear / 

Sound_And_Text (VNorm, PHi , T3 ) ; 
Sound_And_Text (VSof t , PNorm, T4 ) / 
Show_Bl ink ; 

end; (intro phrase) . 

PROCEDURE Problem_Phrase ; 
Var temp : String(80]; 
Begin 

Which : -Determine_WHich (Which, 7) ,• 
Case Which of 
1 : Begin 

temp : = ' the ' +problem_Te rms (AnyTerm, True , True ) ; 
Sound__And_Text (VNorm, PHi , temp) ; 
Look_Around ; 

Sound_And_Text (VSof t, PNorm, ' that ' ' s facing me 
' +Instantly_Terms (Anyterm, False, True) ) ; 

Show_Blink; 

Sound_And_Text (VSof t , PHi , ' is ' +ProblemName+ ' . '); 

end; 

2 : Begin 

Sound_And_Text (VNorm, PHi, ' I ' ' m ' + Real lyJTerms (True, True) +' trying 

' ) ; 

Look_Around ; 

Sound_And_Text (VSof t , PNorm, ' to avoid ' + ProblemName + ' . '); 
Show_Bl ink ; 

end ; 

3 : Begin 

Init_Face ( FSad) / 

Sound_And__Text (VNorm , PNorm, ' I ' ' m ' + Began__Terms (AnyTerm , True, True) + ' to have a' + 

Problem_Terms (AnyTerm, True , True) ) ; 
Look_A round ; 

Sound_And_Text (VSof t , PNorm, ' trying to avoid ' +ProblemName+ ' . 

' ) ; 

end; i 

4 : Begin 

If Caps then ProblemName [ 1 ] := UpCase (ProblemName [1] ) ; 

Sound_And_Text (VNorm , PHi , ProblemName+ ' is '); 

Tilt_Lef t_Brows (True) ; 
Sound_And_Text (VNorm, PNorm, Really_Terms (False, True) + ' a' +iProblem_Terms (AnyTerm, True 
, True ) + ' for me . ' ) ; 

Show_Blink; 

end; 
5: Begin 

Init_Face (FSad) ; 

temp talk about a' +Problem_Terms (AnyTerm, True , False )+'--' ; 
Sound_And_Text (VNorm, PNorm, temp) ; 
Show_Bl ink ; 

Output_Face_Command ( Eyes ,0,0,0,7) ; 
Sound_And_Text (VNorm , PLo the one I am' 

-t-Really_Terms ( true , true ). + ' facing is ' +ProblemName+ ' . '); 

end; 
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6 : Begin 

Init_Face (FSad) ; 

Sound_And_Text (VNorm, PHiHi , Instantly_Terms (AnyTerm, False, False) +' , ' > ; 
Show_Bl ink / 

Output_Face_Command (Eyes, 0,0,0,7) ; 

Sound_And_Text ( VNorm, PLo, ' I ' ' m confronting a new 
' +Problem_Terms (Anyterm, False, false) 

+ ' , ' +ProblemName+ ' . ' ) ; 

end; 
7 : Begin 

Ini t_Face ( FSad) ; 

temp : =ProblemName+ ' is the ' +problem_Te rms (AnyTerm, True , True ) ; 

Sound_And_Text (VNorm, PNorm, temp) / 

Show_Blink; 

Output_Face_Command (Eyes ,0,0,0,7) ; 
Sound_And_Text (VNorm, PLo, ' that is' + 

Becoming_Terms ( true , true) +' an aggravation. '); 

end ; 

end; 

UseCaps : =True ; 
end; (problem phrase) 



PROCEDURE Strategy_Phrase; 
Begin 

Which : =De termine_Which (Which, 6 ) ; 
If WhichoS then Ini t_Face( f Grim) ; 
Case Which of 

1: Sound_And_/Text (VNorm, PHi , ' so , of course, 
I ' +Planned_To_Te rms (AnyTerm , True , True )+ The S t rat Name + ' , ' ) ; 

2 : Begin 

Sound_And_Text (VNorm, PHi , ' all I ' +Rea 1 ly_Terms (True , True) + ' care 

about is ' ) ; 

Output_Face_Command (Eyes, 0, 0, 0, 7) ; 
Sound_And_Text (VNorm, PNorm, ' that 
I ' +Planned__To_Terms (AnyTerm, True, True) +TheS tra tName+ ' . ' ) ; 
end ; 

3 : Begin 

Sound_And_Text (VNorm, PHi , ' to ' +TheS t ra tName+ ' ' ) ; ■ 
Sound_And_Text (VSof t, PNorm, ' is what 
I ' +Real ly_Terms (True , True ) + ' am focused on. ' )/ 
end; 

4 : Begin 

Sound_And_Text (VNorm, PHi , ' I know if I can ' +TheStra tName+ ' '); 
Show_Blink; 

Sound_And_Text (VSof t, PNorm, ' I 
will ' +Usually_Terms (True , True) + ' be all right' 

+very_Soon_Terms ( true , false) +' . '); 

end; 
5: Begin 

Output_Face_Command (Eyes , 0,0,0,-14); 

Sound_And_Text (VNorm, PHi , ' if I can only ' +TheS tratName+ ' '); 
Output_Face_Command (eyes ,0,0,0,14); 
Sound_And_Text (VSoft, PNorm, 'my' 
+Problem_Terms (AnyTerm, True , True ) + 'will end. '); 
end; 
6 : Begin 

Output_Face_Commahd (Eyes ,0,0,0,-14); 

Sound_And_Text (VNorm, PHi ,' but I 
can ' +Usually_Terms (True , True) +' handle it '); 

Ou tput_Face_Command (eyes ,0,0,0,14) ; 
• Sound_And_Text (VSof t , PNorm, ' if I can only ' +TheS t ra tName + ' . '); 

end ; 

end ; 

UseCaps : =True ; 
end; ( s t ra tegyphrase ) 



PROCEDURE Decision_Phrase ; 
Begin 

Which : =Determine_Which (Which, 7 ) ; 
If Which<5 then I ni t_Face ( f Norm ) ; 
Case Which of 
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Sound And Text^VNorm , PHi , ins tant lyJTerme ( anyt erm , Fa lse , Fal se ) + ' , '); 

- ~ Sound_And_Text (VNorm, PNorm, ' I am' + 

Began_Terms (AnyTerm, True, True) +' to ' +Df 1 tDSDName + ' '); 
Show__Fear ; 

Sound And Text {VNorm, PLo , ' while ' +becoming_Terms ( true , true )+' concerned ); 

Sound_And_Text (VSof t, PLo, ' and ' + Looking_For_Terms (True , True ) + a 

plan . ' ) ; 

end ; 

2 : Begin , . , . 

Sound_And_Text (VNorm, PNorm, ' I ' ' m getting my brain in gear >; 

Show._Bl ink ; 

Sound_AndJText (VNorm, PLo, ' and' +Began_Terms ( AnyTerm, True , false) + ' to 
' +Df ltDSDName+ ' . ' ) ; 

end ; 

3 : Begin 

Sound_And_Text (VSof t, PNorm, 'while' + Deci s ionJTerms (AnyTerm, True , True ) ) ; 
Move_Brows (True) ; 

Sound_And_Text (VSof t , PHi , ' what else I might do, '); 

Move_Brows (False) ; 

Show_Blink; 

Sound_And_Text (VNorm, PNorm, ' I 
am' +Began_Terms (AnyTerm, True , True) + ' to • ' +Df 1 tDSDName + ' . ' ) / 
Show__Smi 1 e ; 

end; 

4 : Begin 

Sound_And_Text (VNorm, PNorm, Right_Now_Te rms (False, False) + , I 

am' ) ; 

Show Blink; 

Sound_And_Text (VNorm, PNorm, Began_Terms (AnyTerm, True , True) +' to 

' +Df 1 tDSDName + ' ' ) ; 

Show_Smile ; 

Output_Face_Command (Eyes , 0,0, 0, -14) ; 
Sound_And_Text (VNorm, PLo, ' and worrying less '); 
Output_Face_Command ( Eyes ,0,0,0,14); 
' Sound_And_Text (VNorm, PLo, ' while' 
+Decision_Terms (AnyTerm, True , True ) + ' my ' ) ; 

Move_Brows (True) ; 

Sound_And_Text (VNorm, PLolo, ' next step. '); 

end ; 

5 : Begin 

Sound_And_Text (VNorm, PNorm, 'so I ' ' m ' ) ; 
Show_Blink; 

Sound_And_Text (VNorm, PLo , BeganJTerms (AnyTerm, True , True ) +' to 

' +Df ltDSDName 

+ ins tant ly_terms (any term, true , false) +' . ' ) ; 

end; 
6 : Begin 

Sound And Text (VNorm, PNorm, Ins tant lyJTerms (anyterm, False, False) + 

I ' ' m ' +Decision_Terms (AnyTerm, False , True) ) ; 
Show_Blink; 

Sound_And_Text (VNorm, PLo, ' to start to ' +Df 1 tDSDName+ ' '); 
Show^Smile; 

end; 
7: Begin 

Sound_And_Text (VNorm, PNorm, 'so, ' ) ; 
Show_BLink ; 

Sound_And_Text (VNorm, PNorm, 'while' +Looking_For_Terms (True , True) + ' some plan, ' ) ; 
Show_Smile; 

Output_Face_Command (Eyes ,0,0,0,-14); 
Sound_And_Text (VNorm, PLo, ' I ' ' m' + BeganJTe rms (AnyTerm, True, True) + ' to 
' +Df ltDSDName+' . ' ) ; 

Move__Brows (True ) ; 

end ; 

end; 

• UseCaps : =True ; 
end; (Decision phrase) 

( } 

PROCEDURE Plan_Phrase; 

Begin 

Which : =Determine_Which (Which, 8) ; 
Init Face (FNorm) ; 
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Case Which of 

1 : Begin 

Sound_And_Text (VNorm, PHi, Instant ly_Terms (anyterm, False, False) +' , I am ' +SGName+ ' 
' ) ; 

Tilt_Lef throws (True) ; 
Sound_And_Text (VNorm, PNorm, ' and 
I ' +Planned_To_Terms (AnyTerm, True , True ) +PlanName+ ' . ' ) ; 

Show_Blink; 

end; 

2 : Begin 

Sound_And_Text (VNorm, PHi , ' I find myself '+SGName+' '); 

Show_B 1 ink ; 

Show_Grim; 

Sound_And_Text (VNorm, PNorm, ' and ' +Planned_To_Terms (AnyTerm, True , True) +PlanName+ ' . 

' ) ; 

end / 

3 : Begin 

Sound_And_Text (VSof t , PLo, ' so here I am, '); 
Show_Blink / 

Sound_And__Text (VSof t , PLo , SGName+ ' '); 
Til t__Left_Brows (True ) ; 
Sound_And_Text (VNorm, PNorm, ' and 
I ' + Planned_To_Terms (AnyTerm, True , True ) +PlanName+ ' . ' ) ; 
end; 

4 : Begin 

Sound_And_Text (VSof t , PLo, ' anyway, ' ) ; 
Show_Wink / 

Sound_And_Text (VSof t, PLo, ' I am '+SGName+' '); 
OutPut_Face_Command (Eyes ,0,0,0,-7) ,• 
Sound_And_Text (VSoft , PNorm, ' and ' + Pi anned__To_Terms (AnyTerm, True, True) +PlanName+ ' . 

' ) ; 

end / 

5 : Begin 

Sound_And_Text (VNorm, PHi, ' here I''m '-fSGName+' ')/ 
Tilt_Lef t__Brows (True) / 
Sound_And__Text (VNorm, PNorm, 'but 
I ' + Planned_To_Terms (AnyTerm, True , True) +PlanName+ ' next. ')/ 

Show_Blink; 

end / 

6 : Begin 

Sound__And_Text (VSof t, PLo, Ins tant ly_Terms (anyterm, False , False) + ' I ' ' m ' ) ; 

Show_Bl ink ; 

Sound_And_Text (VSof t, PLo, SGName+' ' ) ; 
Til t_Left_Brows~( True ) / 
Sound_And_Text (VNorm, PNorm, ' but next 
I ' +Planned_To_Terms (AnyTerm, True , True) +PlanName+' . ' ) ; 
end; 

7 : Begin 

Sound_And_Text (VSof t , PLo, Ins tan t ly_Terms (anyterm, False , False) +' , while I''m '); 

Show_Wink; 

Sound__And_Text (VSof t, PLo,SGName+' , ' ) ; 
Out Put_Face_Command (Eyes ,0,0,0,-7); 
Sound_And_Text (VSof t , PNorm, ' I ' +Planned_To_Terms (AnyTerm, True , True ) +PlanName+ ' . ' ) ; 
end ; 

8 : Begin 

Sound_And__Text (VSof t, PNorm, ' I 
next ' +Planned_To_Terms (AnyTerm, True , True ) +PlanName+ ' '); 

Show_Bl ink ; 

Sound_And_Text (VSof t , PLo ,' from where I am now ' +SGName+'. '); 
Out Put_Face_Command (Eyes ,.0,0,0,-10); 

end ; 

end ; 

UseCaps : -True ; 
end; (plan phrase) 



PROCEDURE Node_Phrase; 
Var St i String [40] ; 
Begin 

Wh ich : =Determine_Which (Which, 7 ) ; 
Ini t_Face ( f Norm) ; 
Case Which of 
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2 : St:='I find myself'/ 

3 : St : =Instantly_Terms (anyterm, false, false) + ' , I find myself ; 

4 : St : = ' here I am' ; 

5 : St : =Instantly_Terms {anyterm, false , false) +' , I am' / 

6 : St: = 'I"m here'; 

7 : St : = ' I ' ' m'./ 
end/ (case) 

If SGName[l]<>' ' then St:=St+' '/ 
Sound_And_Text (VNorm, PHi, St+SGName+' . ' ) / 
Move_Brows (True) / 
UseCaps : =True / 
end/ (node phrase} 

PROCEDURE NextNode_Phrase/ 
Var St : STring [40] ; 
Begin 

Which : =Determine_Which (Which , 6 ) / 
Ini t_Face ( f Grim) / 
Case Which of 

1 : St : = ' I ' ; 

2 : St : - ' but I ' ; 

3 : St := 'GO I'; 

4 : St : « ' I know I ' ; 

5 : St := 'without a doubt, I'/ 

6 : St := 'obviously, I'/ 
end/ (Case) 

Sound_And_Text (VLoud, PHi , S t +Rea 1 lyJTerms (True, True) ) / 

Sound_And__Text (VNorm, PHi , Need_To_Be_Terms (AnyTerm, False, True) +Nex tSGName + ' . 

UseCaps : -True / 
(next node phrase) 



' ) i 
end ; 



PROCEDURE NewDecision_Phrase / 
Begin 

Which : =De termine_Which (Which , 8 ) ; 
Ini t_Face { FNorm) / 
Case Which of 

1 : Begin 

OutPut_Face_Command (Eyes ,0,0,0,8) / 

Sound_And_Text (VNorm, PHi , ' I am' +Began_Terms (Which, True, True) ) / 
Sound_And_Text (Vnorm, PNorm, ' to ' +NowDSDName ) ; 
Show_Blink; 
Show_Smi le / 

Sound_And_Text (VNorm, PNorm, ' 
whi le ' +hoping_Terms ( true , true )+' for the best. ')/ 
end ; 

2 : Begin 

Sound_And_Text (VLoud, PHi , 'so, ' ) ; 
Show_Blink; 

Sound_And_Text (VNorm, PNorm, ' I ' ' m' +Began__Terms (Which, True , True) ) ; 

Sound_And_Text ( Vnorm, PHi , ' to ' +NowDSDName+ ' . ' ) / 

end / 

3 : Begin 

Sound_And_Text (VSof t , PLo, ' to get to where I''m going, ')/ 
Look_A round ; 

Sound_And_Text (VNorm, PNorm, ' I ' ' m' +Began_Terms (Which, True , True) ) / 

Til t_Left_Brows (True ) / 

Sound_And_Text (Vnorm, PHi ,' to ' +NowDSDName+' . ')/ 

end; 

4 : Begin 

Sound_And_Text (VSof t , PNorm ,' to move along my plan, ')/ 
OutPut_Face_Command (Eyes ,0,0,0,8)/ 
OutPut_Face_Command ( Eyes ,0,0,0,-12)/ 
Sound_And_Text (VNorm, PNorm, ' I ' ' m' +Began_Terms (Which , True , True) ) ; 

Sound_And_Text (Vnorm, PHi ,' to ' +NowDSDName+' . ')/ 

end/" 

5 : Begin 

Tilt_Lef tjrows (True) / 
Sound_And_Text (VNorm, PNorm, ' I ' ' m' +Began_Terms (Which, True , True) ) ; 

Sound_And_Text (VNorm , PHi ,' to ' +NowDSDName+ ' , ' ) / 
Show Smile; 
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Sound_And__Text (VNorm, PNorm, Hoping__Terms (False , True) +' to get to where I ' ' ni going. 
' > ' 

end / 

6 : Begin 

Show_Bl ink / 

Sound_And_Text (VNorm, PNorm, ' I ' ' m' +Began_Terms (Which , True , True ) ) ; 

Sound_And_Text (VNorm, PLo, ' to ' +NowDSDName+ ' , '); 
Look_Around; ; 

Sound_And_Text'( VNorm, PNorm, Hoping_Terms (False , True ) + ' my plan 

works out. '); 

end; 

7 : Begin 

Sound_And_Text (VLoud , PHi , ' anyway, 
' +Hoping_Terms (False , True) +' for the best, '); 

Show_Blink; 

Sound_And_Text (VNorm, PNorm, ' I ' ' m ' + Began__Terms (Which , True , True ) ) ; 

Sound_And_Text (VNorm, PLo, ' to ' +NowDSDName+ ' . '); 

end / 

8 : Begin 

Sound_And_Text (VLoud, PHi looking ahead, ')/ 
Show_Blink; 

Sound_And_Text (VNorm, PNorm, ' I ' ' m' +Began_Terms (Which , True , True ) ) ; 

Sound_And_Text (VNorm, PLo, ' to ' +NowDSDName+ ' . ' ) ; 

end; 

end ; 

UseCaps : =True / 
end; (new decision) 



PROCEDURE Then_Phrase; 
Var St : String [20] ; 
Begin 

UseCaps : =True ; 

Case De termine_Which (Which, 7 ) of 



1 


: St 




' Then' ; 


2 


• St 




Later' ; 


3 


St 




After a while'; 


4 


St 


= 


After that ' ; 


5 


St 


_ 


Next' ; 


6 


St 


_ 


Then after that' / 


7 


St 




Next thing' ; 



end; 

OutPut (Spacing [Prefix) +st+ ' , ' +Spacing [Suffix] , Say) ; 
UseCaps : =Fa lse ; 
end; (then phrase) 



PROCEDURE Friend_Phrase ; 
Var T1,T2 : String [80] ; 
Begin 

UseCaps : =True ; 

Which : «=Determine_Which (AnyTerm, 6) ; 
. If Which<4 then 
Begin 

Case Which of 
1 : Begin 

Ini t_Face ( f CTime ) ; 

Tl :=' your ' +Friend_Terms (AnyTerm, True , True) +HeroName+ ' '; 
T2 : = ' could ' +Rea 1 ly_Terms (True , True) +' use your help and 

advice, '+UserName+' ' ; 

end ; 
2 : Begin 

Init_Face (fNorm) ; 

T1:»'I tell you, ' +UserName+ ' , '; 

T2 : ~ ' your' + Frierid_Terms (AnyTerm, True , True ) + 

HeroName+' is ' + Real ly_Terms (True , True ) + ' in trouble. '; 

end ; 
3 : Begin 

Ini t_Face ( f Norm) ; 

Tl : =' listen ' +Use rName + ' , '; 

T2:='this time your' +Friend_Terms (AnyTerm, True, True) 4. 

HeroName+' i s ' +Real ly_Terms (True , True )+' in a pickle. 

end ; 
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end; {Case} 
Show_Wink / 

Sound_And_Text {VNorm, PLo, Tl ) ; 
Show_Bl ink ; 
Show^Smile ; 

Sound_And_Text ( VNorm, PNorm, T2 ) ; 

end ; 

UseCaps : =True / 
end; (Friend phrase} 



PROCEDURE Last_Phrase; 

Const Words: Arrayfl. .5] of String(12] = 

('at last , ',' finally , ',' so f inally , ' , ' in the end,', 'so at last,'); 

EndPhrase : Array [0..1] of String(20) = 

{' I reached my goal. ',' my problem ended. '); 

Begin 

Which : =De termine_Whi ch (Which, 5 ) ; 

UseCaps : =*True ; 

Ini t_Face ( f CTime) ; 

Case PalDead of 

False : Begin 

If SGNameo'' then 

Sound_And_Text ( VSof t , PNorm, Words (Which) + ' I ' ' m 

' +SGName+ ' . ' ) 

else 

Sound_And_Text (VSof t , PNorm, Words [WHich] +EndPhrase [Random (2) 3 ) / 

Describe^Arousals (AxiyTerm) ; 

end ; 

True : Sound_And_Text (VNorm, PNorm , Words [Which] + ' I''m dead. '); 

end ; 

UseCaps : =True ; 
end; (last phrase) 



PROCEDURE Get_Highest_Regs ; 
Var Element, 
Where , 

Count : integer; 

Regs : ByteArray; 

St : String [80] ; 

Begin 

' Fill Char (Top t 3Arousa Is , SizeOf (Top3Arousals ) , 0) ; 
Move (AS toryRec . Arousal s , Regs , Si zeOf (Regs) ) ; 

Reg's [Ord ( PainJoyRate ) ] :=0; ( NEVER talk about Pain, and always talk joy 
(below) } 

Fill Char <Top3Reqs , SizeOf (Top 3 Regs ) , 0 ) ; 
TopRegVal : -0 ; (needed in story) 
AStoryRec . ValidRegCount : «=0 ; 
(* First, get top 3 registers --*) 
With AStoryRec do 
For Count ;=1 to 3 do 
Begin 

Where : =Find_Larges t_Buf f er_Value (Regs [9] ,5) ; 
If (WhereoO) and ( Regs [ 8 +Where ] <>0 ) then 
Begin 

Inc (ValidRegCount ) ; 
Where : -Where+8 ; 

Top3Regs [ValidRegCount] :=Where; 
If Regs [Where] >TopRegVal then 

TopRegVal : =Regs [where] ; 
Regs [Where] : =0 ; 

end 

end ; 

If (AStoryRec . ValidRegCount <3 ) and (Regs (Ord (TotalArousal ) ) >0 ) then 
Begin 

Inc {AstoryRec . ValidRegCount ) ; 

Tcp3Regs [AStoryRec . ValidRegCount J : =0rd (TotalArousal ) ; 

end ; 

(*-- Now convert top 3 regs into strings. . . --*) 
With AStoryRec do 

For Count :=1 to ValidRegCount do 
Begin 
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St : =Amount_Of (Top3Regs [Count] 
Case Top3 Regs (Count ] of 



8 
9 
10 



Top3Arousals [Count] 
Top3Arousals [Count] 



0, 255) ; 

=S t+Fear_Terms (AnyTerm, False, False) ; 
=St+Surprise_Terms (AnyTerm, False, False) 



=S t+Disappointed_Terms {AnyTerm, False, False) ; 

Top3Arousals [Count] : =S t+Frus t rated_Terms (AnyTerm, False , False) 
Top3Arousals [Count] : =St +Hopeless_Terms (AnyTerm, False, False ) ; 
Top3Arousals [Count] : =S t +Anxious_Terms (AnyTerm, False, False) ; 



Top3Arousals [Count] 

11 : 

12 : 
14 : 

end; 

end / 

end/ {Get highest regs] 

{--- " - ) 

PROCEDURE - 
Var Next 
Num 

TempStr 
Begin 

Which : =De termine_Which (Which , 3 ) ;" 
If AStoryRec . ValidRegCount >0 then 
Begin 

Ini t__Face ( f CTime ) ; 
Case Which of 

1 : TempS t r : « ' I ' + Fe 1 t_Terms (AnyTerm , True , True ) +Top3 Arousa Is [ 1 ) 

2 : TempStr :=' Mainly , 

I ' +Fe 1 t_Terms (AnyTerm, True , True ) +Top3 Arousa Is [ 1 ] ; 



Describe_Arousals ; 
Integer ; 
Integer; 
String [150] ; 



Begin 



Out Put_Face_Command { Eyes ,0,0,0,7); 

TempStr :=' I '' ve noticed I ' +Fe 1 t_Terms (AnyTerm, True , True ) -i 



end ; 



Top3Arousals [1] ; 

.end ; 

Sound_And_Text (VSof t, PHi , TempS tr+ ' . ' ) ; 

end; 

If (AStoryRec .Arousa Is [13] <127) then 

Sound_And_Text (VNorm, PNorm, ' I ' ' m also feeling 
Amount_Of (AStoryRec . Arousa Is [13] , 0, 127) + 
Be t ter_Terms (anyterm, false, false) +' . ' ) ; 
end; (Describe arousals) 

{ 

end . 



Purpose : 



Unit Story2, 



This unit controls the output of story text 
the real time changes to the face if telling 

Hi story 
3/26/91 
3/27/91 
6/26/91 



in record mode, and handles 
a story in realtime mode. 



onclusion phrase. RG 
ne, kick out 1st SE.Ri. RG 
This is to let the PAL 
files. 



Last Ctime of story, only output c 
If RiNum=AnyRi in convert_ri routi 
Added arousal output to story file 
talk 2 way about arousals in story 
CoDyriqht (c) 1989-1991 Anthrobotics ========= 

} Interface { 

Uses Types , BlockFile , Pi ay Back , SiS tuf f , Da tLis t , newTypes , General ; 
Type StoryRecord = Record 

HitSiNode, 
NextSINode, 
NowStratPtr , 



porpoise ) 



Incr_Arousal jRegs } 



NowDsd , 
Df ltDsd 
ArousalLeve 1 

Hi tPlanRow , 
HitPlanNum 



Find_Strategy/Advanced_On_Plan } 

^ Arousals : 

4 ValidRegCount 
end; { s toryrecord ) 
Const MinimumPain : Integer = 20/ 
FearQui tLevel : Integer = 90; 



Point Pt r ; 
integer ; 



Byte ; 

By te Array ; 
Byte ; 



(Set 


in 


Set 


in 


Set 


in 


Set 


in 


|Set 


in 


Set 


in 


Set 


in 


Set 


in 


Set 


in 


Set 


in 



uni t J 
uni t ) 
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Integer = 90; 

Array(1..3] of byte= - (0,0,0); 
Byte = 0; 

Array [1.. 3] of String[30] == (' 



String [80] 
String [8 0] 
String (803 
String [8 0] 
String (80) 
String (80) 
String [8 0] 



MinimumJoy 
Top3Regs 
TopRegVal 
Top3Arousals 
Const ProblemName 
TheStratName 
PlanName 
SGName 
Df ltDsdName 
NowDsdName 
NextSGName 
Var AStoryRec, 

LastStorYRec : StoryRecord; 
PROCEDURE Try_To_Save_Story/ 
FUNCTION Begin_Story (Var BeginStory: 
FUNCTION Conclude_S tory : Boolean; 
PROCEDURE Terminate_Run ; 
PROCEDURE Convert_Terms ; 

PROCEDURE Save_Sound (Tone , Volume , Pi ten, Speed : Integer); 
FUNCTION OutPut(S: StrlSO; Command: Keywords): Integer; 
PROCEDURE Expand_Synonyms (Var S: String; MaxLen: Word); 
PROCEDURE Convert_Abstract_Ri s_To__Pf s ( Var Source: 
PROCEDURE Convert Ri_To_Rx (Var Source: String); 
( .'.•;} Implementation ( 

Uses Terms 6 , Terms 5 , Terms 4 , Terms 2 , Terms 3 , Terms 1 , 
SageTalk, Face2 ( RiStuf f , Strucs, 

Printer , GrTool , Goa IS tuf f , DsdS tuf f , Focus 2 , SxS tuff , 
Relation, RxStuf f 1; 



) ; 



set in goalstuf : What_Now_Porpo 
set in goalstuf: What_Now__Porpo 
set in goalstuf : Find_S t ra tegy ) 
determined real time' 
determined real time 
determined real time 
determined real time 



Boolean) : Integer; 



lse 
ise 



string) ; 



• ) 



Integer) ; 



=Tone ; 
=Volume / 
=Pitch; 
=Speed ; 



PROCEDURE Save_Sound (Tone , Volume , Pitch, Speed : 
Begin 

Story File . f Cur rent Command . Bytes [ 1 ] 
Story File . f Cur rent Command .Bytes [2] 
Story File . f Cur rent Command . Bytes [3 ] 
StoryFile . f Current Command . Bytes [4 J 
OutPut ( ' ' , Sounds) ; 
end; (save sound) 

{ 

FUNCTION OutPut (S : StrlSO; Command: Keywords): INteger; 
Var I : Integer; 

Dont : Boolean; 
Begin 

Dont : =False; 
If So' ; then 

StoryFile . f Input . fStr : =:S ; 
StoryFile . f CurrentCommand . Command : =Command; 
If (StoryFile . fFileOpen) then 

OutPut :=Story File. mPut_Command 
else OutPut : =0 ; 

If OkToTalk then PlayBack__Command ( storyf ile , i , Dont ) ; 
end; (Output) 

PROCEDURE Save_Composite_Face/ 
Var Speaking : Boolean; 
Begin 

Speaking : =OkToTalk; 
OkTotalk : =True ; 
OutPut ( , Display) ; 
OkTotal k :» Speak ing ; 
end; (save composite face 



Force first face update; compface was built in Face2 ) 



} 



FUNCTION Enough_Fear_For_A_Good_Story : Boolean; 

(This routine tests to see if the genetic fear level of the current 
goal is greater than some settable minimum. If not the brain isnt 
scared enough to tell a good story, and it should stop talking.) 

Begin 

Enough_Fear_For_A_Good_S tory : = 

SubGoal Pt r (NowPorpoisePt r ) A . ASubGoal . Arousal >FearQui t Level ; 
end; (enough fear for a good story) 



) 



FIG. 9C-13 



31 



PROCEDURE Test Arousa l_MinMax ; _ 

(This routine tests to see if the current arousal level is less than 
the lowest level of arousal so far, and if it exceeds the highest level 
of arousal so far. In either case, it saves the min and max.) 

Begin 

If AS toryrec . Arousal Level >ArousalMax then 

Arousa IMax : =AStoryRec . Arousa 1 Level ; 
If AStoryrec . ArousalLevel<ArousalMin then 

Arousa 1M in : =AStoryRec . Arousal Level ; 
end; (Test arousal minmax) ^ 

PROCEDURE Save_Arousal_Inf o ; 

(This routine stores the 3 highes t< ^arousal registers into the 
current storyfile if the storyfile is open.) 
Begin 

StoryFile . f CurrentCommand . Command : =Arousa 1 Inf o / 
Move (Top3Regs , S toryFi le . f CurrentCommand . Bytes , 3 ) ; 
StoryFile . f CurrentCommand . Bytes [4] : =TopRegval ; 
StoryFi le . mPut_Command ; 
end/ (save arousal info} ^ 

PROCEDURE Try_To_Save_Story ; 
Var FaceShown : Boolean; 

Begins tory , 

Caps , 

ScaredEnuf : Boolean; 
I : integer; 

Begin 

Begins tory : =False ; 

FaceShown : =True ; 

If Not OKToTalk then - 

Save_Composi te__Face 
else FaceShown : =False / 
Convert__Terms ; 
With AStoryRec do 
If ( (StoryFile . fValidStory) or 

{ Beg in_S tory (Begins tory) =0) ) then 
Begin 

FaceShown : =BeginS tory ; ' 
StoryFile . flOresult : «0; (clear former errors) 
If (StoryFile . fFileOpen) then 
Begin 

StoryFile . f CurrentCommand . Command : =CTimeMarker ; 
StoryFile . f CurrentCommand . Long : =NowTime ; 
StoryFile. mPu t_Command ; 

end ; 

Inc (StoryFile . f CTimesSaved) ; 

ScaredEnuf : =Enough_Fear_For_A_Good_S tory ; 

If (NowPorpoisePtroLastNowPorpoisePtr) or 

(AStoryRec . Hi tSiNodeoLastStoryRec . HitSINode) then 

Begin 

If ScaredEnuf then 
Begin 

FaceShown : =Not BeginStory; 
If Not BeginStory then 

Then_Phrase (AnyTerm, True , True ) ; 
If (Not PalDead) then 

If Describe_Story (BeginStory) =0 then; 

end; 

If BeginStory then 

Friend_Phrase (AnyTerm) ; 

end; 

Test_Arousal_MinMax; 

If StoryFile . fFileOpen then 

Save_Arousal_Inf o ; 
If (Not ScaredEnuf) or (PalDead) then 

FaceShown : =Conclude_S tory ; 
Lasts tory Rec : =AStoryRec ; 

end ; 

If Not FaceShown then 
Save_Compos i t e_Face ; 
end; (Try to save story) 
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FUNCTION Begin_Story (Var BeginStory: Boolean): Integer; 
Var Which, 

Result : integer/ 
Begin 

With StoryFile do 

If (AStoryRec . Arousa iLeve 1 >=M inimumPa in ) then 
Begin 

BeginStory : =True ; 
f ValidStory : = True ; 

FillChar (Las tStoryRec , SizeOf ( Las tSt oryRec ) ,255) ; 
ArousalMax : =AS toryRec . ArousalLeve 1 ; 
ArousalMin : =AStoryRee . Arousa lLevel ; 
If (OutPut {'', TopOf Story) =0) then 
Begin 

Intro_Phrase (Which) ; 
StoryFi le . f IOResul t : =0 ; 

end 

else Termina te_Run ; 
Begin_Story : =0 ; 

FillChar (Las tStoryRec , SizeOf ( Las tStoryRec ) , 0) ; 

end 

else Begin_Story : = - 1 / 
end; (begin story) ^ 

FUNCTION Conclude_Story : Boolean; 
Begin 

Las t_Phrase (AnyTerm) ? 
OutPut ( ' ' , EndOf Story) ; 
StoryFile. fValidStory : = False; 
Conclude_Story : =True ; 
end; (conclude story) 

PROCEDURE Terminate_Run ; 
Begin 

If StoryFi le . mClose^O then; 
Stop the run ....). 
Show error) 

end; (terminate run) . 

( ) , 

FUNCTION Get_Ri_To_Talk_About (Var Source: Strl50; Var Where: Integer): String; 
Var Next, 

Temp : Strl50; 

EndPos : Integer; 
Begin 

Where : = Pos ( ' [ ' , Source) ; 
If WhereoO then 
Begin 

EndPos : =Pos ( ' )•' , Source) ; 

If EndPos=0 then EndPos : =Succ ( Length ( Source )) ; 

Get Ri_To_Talk_About : =Copy (Source , Where+1 , EndPos -Where - 1) ; 

Delete (Source, Where ^EndPos -Where+1 ) ; 

end 

else Get_Ri_to_Talk_About : = ' ' ^ 
end; (Get ri to talk about) 



FUNCTION Convert_Ri_To_Pf (Var Source: String): Boolean; 
Var AnRi : RiPtr; 

Num,fNum: Integer; 
Begin 

AnRi :=RiPtr(RiList. Whose_Name (Source , true , num, f num) ) ; 
If AnRioNil then , 

AnRi" . Get_Best_PF_Match (Source) 
else Source : => ' ' ; I 
Convert_Ri_To_Pf : =Source<>' ' ; ' 
end; (convert ri to pf) ^ 

PROCEDURE Convert_Abstract_Ris_To_Pf N s (Var Source: string); 
Var I, Where : Integer; \ 

RiOrPF : String[20]; \ 
Begin \ 
Where :«0; 



) 
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RiOrPf : «Get_Ri_To_Talk_About (Source , Where) ; 
While (RiOrPfo") do 
Begin 

If Convert_Ri_To_Pf (RiOrPf ) then 

Insert (RiOrPf , Source , Where) ; 
RiOrPf : = Get__RI_To__Talk_About (Source , Where ) ; 

end; 

end; {convert abstract ris to pfs} 

PROCEDURE Lower_Case(Var Source: Strl50); 
Var I : integer; 
Begin 

For I:=l to Length (Source ) do 
If (Source [i] >'©' ) and 

(Source [i] < ' ( ' ) then Inc ( Source [ i ) , 3 2 ) ; 
end; (lower case) v 

FUNCTION Determine__Table (Var S: String): Integer; 
Var Temp, Err: integer; 

SubSt : String [10] ; 
Begin V 
Temp : « 0 ; \ 

While (S [temp + 1] in ['O'..'9'J) and (temp<4 x ) do Inc (Temp) ; 
SubSt : = Copy (S , 1 , Temp) ; 
Delete (S , 1 , Temp) ; 
If SubSto' ' then 
Begin 

Val (SubSt , Temp , Err) ; 
If ErroO then Temp:=0; 

end 

else Temp : = 0 ; 
Determine_Table : =*Temp; 
end; (determine table} 

FUNCTION ValidJToken ( Var S: String; Var Table: Integer) ^Boolean; 
Var TempSt: String; 
Begin 

Table:=-1; 

If S [2] in [ ' 0' . . ' 9' ] then 
Begin 

Delete (S,l,l) ; 
Table : =De termine_Table (S) ; 

end ; 

Valid_Token : =Table>- 1 ; 
end; (valid token) 



PROCEDURE Get_Synl (Var S: STring; Table: 
Var St : STring (100} ; 

Suffix : Boolean; 
Begin 

Suffix : False ; 

Case Table of (tables 0..10) 



Integer) ; 



\ 



end ; 



u 

2 \ 

3 : 

4 : 

n 

7 ': 

8 ) 

9 : 

10 : 

11 : 

end ; 

S : =St+S; 
(Get syn 



St : =Tired_Terms ( false , suffix) ; 
St : =Signi f _Terms (false, suffix) ; 
St : =A_Bit_Terms (false, suffix) ; 
S t : =Becoming_Terms ( false , suffix) ; 
St : =Possibly_Terms (false, suffix) ; 
St : =Very_Much_Terms (AnyTerm, false, suffix) ; 
St : =At_The_Terms (false, suffix) ; 
St : =Right_By__The_Terms (false, suffix) ; 
St : =Near_The_Terms (false, suffix) ; 
St : =Far_From_The_Terms ( fa lse , suffix) ; 
St : =Very_Soon_Terms (false, suffix) ; 
St : =Moving_Terms (false, suffix) ; 



PROCEDURE Get_Syn2(Var S: STring; Table: Integer) 
Var ST : String (100] ; 

Suffix : Boolean; 
Begin 
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Suf f ix : =False / 
Case Table of 



end / 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
end ; 

S:=St+S; 
(Get syn 



St 
St 
St 
St 
St 
St 
St 
St 
St 
St 
St 



2} 



: =sToward_The_Terms (false, suffix) / 

: =From_The_Terms (false, suffix) ; 

; =Boredom_Terms (false, suffix) / 

: =Better__Terms (AnyTerm, false, suffix) ; 

: =Little_Terms (AnyTerm, False, suffix) / 

: =Sort_Of _Terms (AnyTerm, False, suffix) ; 

i s=Usually_Terms (False, suffix) ; 

: -Move_Terms (false , suffix) ; 

: = Picnic__Terms (False, suffix) ; 

: =Pretty_Much_Terms (AnyTerm, False , suffix) 

; =A_Lot_Terms (AnyTerm" False , suf fix) ; 



1; ) 



PROCEDURE Get_Syn3 (Var S: STring; Table: Integer) 
Var suffix : Boolean; 

St : String [100] ; 

Begin 

Suf fix : « False ; 

( suf f ix : = (S=' ' ) or (s(l]<>' 
Case Table of {Tables 21.. 30) 

: =Looking_For_Terms ( Fa Ise , suf f ix ) ; 
=Really_Terms { False , suf fix) ; 
-Find_Terms ( False , suf fix) / 
»Aroueal_Terms (False, suf fix) ; 
=Fleeing — Terms (False, suffix) / 
: =Happening_terms (False , suffix) ; 
=Staying_Still_Terms (False, suffix) 
=Escape_Terms ( false , suf f ix) ; 
=Eat_Terms ( False , suffix) ; 
= Rest__Terms ( False , suf f ix) / 
: Nearby_Terms (False , suf fix) ; 
: =Play_Terms ( Fal se , suf f ix) / 



23 


St 


24 


St 


25 


St 


26 


St 


27 


St 


28 


St 


29 


St 


30 • 


St 


31 


St 


32 


St 


33 


St 


34 


St 


end; 




S:=St+S; 


3} 


(Get syn 



end ; 

PROCEDURE Insert_Synonym (Var S: 
Begin 

If Table>22 then 

Get_Syn3 (S, Table) 
else If Table>ll then 
Get_Syn2 (S, Table) 
else Get_Synl (S, Table) ; 
end,- {insert synonym) 

PROCEDURE Expand^Synonyms (Var S: String; Maxlen: Word) ; 
Var TokenPos, Table: Integer; 

TempSt : String; 

Begin 

Convert_Abstract_Ris_To_Pf s (S) ; 

TempSt : = ' ' ; 

Repeat 

TokenPos : =Pos ( ' ©' , S) ; 
If (TokenPos>0) then 
Begin 

TempSt : =TempS t +Copy (S , 1 , TokenPos - 1 ) ; 
Delete (S, 1 , TokenPos - 1 ) ; 
If ValidJToken (S, Table) then 
Insert_Synonym (S , Table) 

else 

Begin 

TempSt : =TempSt+ ' ©' ; 
Delete(S, 1,1); 

end; 

end 

Until TokenPos=0; 
TempSt : =TempSt+S ; 
S : =Copy (TempSt , 1 , MaxLen) ; 



STring; Table: Integer); 
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end; (expand synonyms} j 

PROCEDURE Convert_Ri_To_Rx (Var Source: String)/ 

P= Purpose: 



Converts Ris in user identifier names to the actual Rxs that were used 
in SiMod and decision making. 

History: — — : 

03/27/91 : If RiNum=AnyRi, kick out first SE.Ri. 



Var RxName, 

RiName : Str80; 

RiNum, 

RxCount, 

Where, I : Integer/ 

Pt : PointPtr/ 

Begin 

RxName : » ' ' / 
RiNum ;=0; 

RiName :=GetjU_To_Talk_About (Source, Where) ; (Strip ri from identfier) 

While RINameo" do 

Begin 

Pt : = RiList . Whose_Name (RiName , True , RiNum, i ) ; 
If PtoNil then 
Begin 

RxCount :=RiPtr (Pt) A . Get_Best_Rx_Match (Sxx** , RxName ) ; 
If RxCount=l then 

Insert (RxName , Source , WHere ) 
else If (Convert_Ri_To_Pf (RiName) ) then 
Begin 

Insert (RiName , Source , Where ) / 
RxName : =RIName 

end 

else Insert ( ' <UNKN0WN>' , Source , Where) / 

end 

If (UpCase_String (RiName) =' HIT' ) then 
Begin 

RxName : «BrainRow A . SxRowRec . RelRow A . SxRowRec . Kind* . RxRec . Name / 

Insert (RxName, Source, Where) / 

end 

else 

Insert { ' <N0HIT> ' , Source , Where ) / 
RiName : =Get_RiJTo_Talk_About (Source., Where) / (Strip ri from identfier} 

end; 

Expand_Synonyms (Source, 2 55) / 
end / ( Convert ri to rx } 

( - ) 

PROCEDURE Convert_Terms; 
Var S : String [150) / 

P : Pointer; 
Begin 
( DEBUG 

Put_Text ( ' Time : ' +Int_Str (NowTime ,1), 10, 10, 15, True) ; 

DEBUG } 

Convert_Ri_To_Rx ( ProblemName ) ; 
If (AStoryRec. HitSINodeoNil) then 
Begin ' 

SGName : =AStoryRec . HitSiNode A . Who_Am_I A ; 
If SGName<>' ' then 

ConvertjRi_to_Rx (SGName ) 
end \ 
else SGName : » ' ' ; \ 
If AStoryRec . Nex t S INode <>Ni 1 then 
Begin 

NextSGName : ^AStoryRec . NextSINode* ,Who - Am - I A ; 
If NextSGNameo" then 

Convert_Ri_To_Rx (NextSGName ) 
end i 
else NextSGName := ' ' ; \ 

If (AStoryRec. NowStratPtroNil) then (Plan/Strategy names already set in 
act ions } 

Begin 



\ 
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If TheStratNameo' ' then 

Convert_Ri_To_Rx (TheSt ratName ) ; 
If PlanNameo" then 

Convert_Ri_To_Rx { PlanName) / 

end / 

If AStoryRec . Df ltDsdoNil then 
Begin 

Df ltDsdName : =AStoryRec . Df 1 tDsd A . Who__Am_I " ; 
If Df ltDsdNameo ' ' then 

Convert_Ri_To_Rx (Df ltDsdName) ; * 

end 

else Df ltDsdName : = ' '; «T" 

If AStoryRec . NowDsdoNil then 
Begin 

NowDsdName : ^AStoryRec . NowDsd A . Who_Am_I A / 
If NowDsdNameo ' ' then 

Convert_Ri_To_Rx (NowDsdName) ; 

end 

else NowDsdName ; 
Ge t_Highest_Regs / 

( DEBUG 

With AStoryRec do 
Begin 

Writeln (lst , ' [' , NowTime , ' } - - ) I 

Writeln (Lst ,' Problem : problem, ' Ptr = 
, seg (nowporpoiseptr A ) , ' : ' , of s (nowporpoisePtr * ) ) / 

Writeln (Lst , ' Strat : ' , Thestrat , ' ptr = 
, seg ( St rat A ) of s (Strat* )) ,« 

Writeln {Lst , ' Plan : ' , Plan) ; 

Writeln (Lst, 'SINode : ' , SG , ' Ptr = seg (SiNode A ),';', of s (SiNode A )) ; 

Writeln(Lst, 'NextNode : ',NextSG,' Ptr - 
, seg ( NextNode A ) , ' : ' , of s (NextNode") ) / 

Wri te In ( Ls t , 7 Df 1 tDSD : ' , Story 2 . Df 1 tDSD, ' Ptr = 
, seg (AStoryRec , Df ltDSD A ) , ' : ' , of s ( AstoryRec . Df 1 tDsd A ) ) / 

Writeln(Lst, ' NowDSD : ' , S tory2 . NowDSD , ' Ptr = 
, seg (AStoryRec . NowDSD* ) , ' : ' , of s (AstoryRec . NowDsd A ) ) / 

Writeln (Lst ) / 

end / 
DEBUG) 

end; { convert terms } 

{ : ) 

Unit Initialization } 

nd . (story2 unit) 
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REPRESENTATIVE FLOW CHART FOR COGNITIVE LEARNING 
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ENVIRONMENT 



MEANS FOR OBTAINING A 
TEMPORALLY- INCREMENTAL 
SERIES OF " PRESENT " 
CONCRETE REPRESENTATIONS 
(SxCn) OF ENVIRONMENTAL 
SITUATIONS 



-* /sxTn»y f - 



— * / SxTn [j h 



MEANS FOR COMPARING 
FOR TIME n+y PREDICTED 
CONCRETE REPRESENTATIONS 
WITH ACTUAL "PRESENT" 
REPRESENTATIONS TO IDENTIFY 
A SELECTED MINIMUM 
DIFFERENCE PAIR AND 
STORING THE SELECTED 
SxCn+y, SxTn+y PAIR 
AND THE SxC 



-/ SxC n*y / 



- / SxCn+2 / 

• 

-/sxCn«i / 

m 

j SxCn / 



MEANS FOR CHOOSING A 
MODIFICATION OF AN SxCn 
OBJECT CHARACTERISTIC (PF) 
LIKELY TO -DECREASE THE 
DIFFERENCE BETWEEN 
SxCn+y AND SxTn'+y 



MEANS FOR OBTAINING AN 
INCREMENTAL SERIES OF "PREDICTED" 
CONCRETE REPRESENTATIONS (SxTn) 
COMPUTED IN SIMULATION FROM 
AN SxCn 



/ SxCn z / 



/ SxTrf^y / - 



MEANS FOR COMPARING 
THE MODIFIED PREDICTION 
WITH THE ACTUAL 
REPRESENTATION TO 
ADJUDGE ANY FURTHER 
DIFFERENCE 



MEANS FOR COMPUTING 

Sx'Tn 2 +y FROM SxCn 2 
\ 



COMPUTER 
STORAGE 

MEANS 



MEANS FOR OPTIONALLY 
CHOOSING TO FURTHER MODIFY 
A PF OR TO SAVE THE 

vNEW "LEARNED" PF TO STORAGE AND 
AS AN OBJECT CHARACTERISTIC 
OF THE SELECTED OBJECT 
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STEPS IN A COMPUTER PROGRAM FOR IMPLEMENTING 
RELEVANCY LEARNING IN AN AUTONOMOUS DECISION SYSTEM 



INITIATING AND STORING REPRESENTATION DATA REGARDING A SET OF 
HIERARCHICALLY -ORGAN I ZED , RELEVANT., NON-LINGUISTIC RELATIONAL 
"SELF"-SITUATIONS COMPRISING A SET OF HIERARCHICALLY -ORGANIZED 
ABSTRACT SELF-PROBLEM REPRESENTATIONS, AND IN ASSOCIATION WITH 
ESSENTIALLY EACH OF SUCH ABSTRACT SELF- PROBLEM REPRESENTATIONS, 
A SET OF HIERARCHICALLY-ORGANIZED ABSTRACT SELF-PLAN 
REPRESENTATIONS EACH COMPRISING A SET OF ABSTRACT SELF-SUBGOAL 
REPRESENTATIONS 



I 



PROCESSING DATA REGARDING SUCH SELF-PROBLEM REPRESENTATIONS AND 
SUCH SELF-PLAN REPRESENTATIONS TO PROVIDE "SELF-PAIN" AND "SELF- 
PLEASURE" REPRESENTATIONS HAVING ASSESSABLE QUANTITIES 



PROCESSING DATA REGARDING REPRESENTATION ELEMENTS OF SUCH 
TEMPORALLY- INCREMENTAL SERIES, RESPECTIVELY, OF "PRESENT" 
CONCRETE SELF-SITUATION REPRESENTATIONS OF SUCH RESPECTIVE 
ENVIRONMENTAL SITUATIONS TO IDENTIFY A FIRST SERIES OF SUCH 
REPRESENTATION ELEMENTS WHICH RESULT IN A SELECTED LEVEL OF 
UNPREDICTED "SELF-PAIN" 



I 



PROCESSING DATA REGARDING SUCH FIRST SERIES OF SUCH 
REPRESENTATION ELEMENTS TO CREATE A LEARNED SELF-PROBLEM 
REPRESENTATION 



PROCESSING DATA REGARDING SUCH REPRESENTATION ELEMENTS OF SUCH 
TEMPORALLY-INCREMENTAL SERIES, RESPECTIVELY, OF "PRESENT" 
CONCRETE SELF-SITUATION REPRESENTATIONS OF SUCH RESPECTIVE 
ENVIRONMENTAL SITUATIONS TO IDENTIFY A SECOND SERIES OF SUCH 
REPRESENTATION ELEMENTS WHICH RESULT IN A SELECTED LEVEL OF 
UNPREDICTED y "SELF-PLEASURE" 



PROCESSING DATA REGARDING SUCH SECOND SERIES OF SUCH 
REPRESENTATION ELEMENTS TO CREATE A LEARNED SELF-SUBGOAL 
REPRESENTATION 



\ 
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DISPLAY 
AND EDIT 



DISPLAY 
AND EDIT 



DISPLAY 
AND EDIT 



GENERAL DATA 
ELEMENTS 




DAW RUN 
PROGRAM 



NCLUSIONAL 
PROGRAM 



SP RUN 
PROGRAM 
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CO 


SER 
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SUMMARY OF PRIMARY SOFTWARE SYSTEMS AND FUNCTIONS 

World: 

Data Building/Saving Interfaces 

Writing RF data Writing RFM data 

Writing PFM data Writing Ri/Pi/ data 

Writing r data Writing Si data 

Writing dsd data Writing PF data 

Writing SCAN data Writing Metabolism Choices 

Object Building/Saving Interfaces 
Selecting an Object Name 
Selecting RF's 

Selecting Doings and Animation 

Selecting Meta-PF's 
Meta-PF Building/Saving Interfaces 

Writing Meta-PF's 
World Building/Saving Interfaces 

Selecting a World Name 

Selecting an Object 

Plunking an Object 
World Incremental Simulation 



ADS : 

Data Building Interfaces 

Writing Problem Nodes: Writing Plan Nodes: hierarchy, 

hierarchy, Sip,. dD Sigp, dD, dTd, dc 

Writing Emotional Attributes 
Writing Facial/Emotional Attributes 

Writing SCAN modes Writing Questions 

Writing Story/Answer Snippets 
' Writing Story/Answer Synonyms 
Selecting ADS Attributes 
Selecting IQ 

Selecting Emotion/Face Attributes 
Selecting Story Start/Stop Attributes 
Overall ADS - Run Systems 

Sensing What Situation 
Recognizing What Situation 
Deciding What Problem Node 
Deciding What Plan Node 
Look- For System to SCAN 
Emotional/Facial System 
Story-Telling System 
Question-Answering System 
Predicting Threats and Opportunities 
Making Action Decisions ■ 



Run : 

Selecting Screens To Show: World, 
Radar, Metabolism, Face k 
Selecting a World 
Plunking an ADS 
Selecting Tell/Story Modes 
Selecting Run Modes 
Stopping and Starting 



RIO, 



40/^2 
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'Figure 1 : Window features 
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File Uie* Edit 


Run Setup Story 




StoryPAL Uorld: 


JUNGLE 


TincStep: 24 
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File Vie^Edit Run Setup Story 



Ston. 
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Radar 
Face 

Life Signs 
Memory 



JUNGLE 
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Figure 2: The Main Screen: A - No menus 
open, and B - the View menu open 
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Open World 



Pick world to be opened. 



AFRICA 



BACKYARD 



BACTERIA 
SEAWORLD 
VtiURWRLD 



No 



Figure 3 
on Open 



What you see when you click 
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Thi ng Bui 1 der :;;:;;:/;;:/;;. , ;;. , .v/.v. , . , ;.v:.v/.v::.| 
Options Select 




Name: Pat 


Select Character Shape 

□ rmtelope DlCrill [v] 
Iftnt DLion 

□ Deachbal DUeat 

□ Coral DNatvnan 
D Dragon ONatvuDMin 

□ Garden DRabbit 

□ Grass DSardine 
D Harpoon DShip 


1 





Figure 4: The Thing Editor window, with 
sever a 1 sub -windows 
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World: Untitled 
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Options Select 


Name: 


Select Character; Color 






□ Blue v 






□ White w 






□ Red * 






□ Yellou 






□ Mixed hues 
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S toryPQL 



World: Untitled 



Thing Builder x':»:':':':':':' 



Qpt ions 



Se lect 



Name: 



Select Character Wariith 



□ Cool 

□ Tepid 

□ Warm 
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File Uieu Edit Run Setup Storyj Brain 



StoryPAL 



Norld: Untitled 




To select behavior, pick 
Pick one: 



up to the stated number from each group: 



□ Live-animal-like 

O "-But no metabolism 
a Li ve-veqet able-like 

□ Mineral -like 

n Mixed/other -like 



Pick zero to 2 



Pick no more than 
one per food chain: 

a Top 1st 
a High 
O Lou 
a Bot'm 

□ Top 2nd food chain 
a Hiqh 

□ Lou 



FIG, 
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World: AFRICA 
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Select other behavior types if your 
As a 'bottom' prey: 



thing matches the headings: 



CH Staus in one place 

□ Drifts- ( 

O Moves by decision 

As a 'ioju' animal: 

A 

□ Safe uhen at home 

□ Safe uheri, near Mop' 

□ Stores food, loui 

O Group/herd behavior 

CStor yPal-jall above] 



As a 'high' animal: 

■i Avoids home of preu 

□ Group/herd behavior 

[Note: If uou make 
qour thinq J lou' or 
'hiqh' in BOTH food 
chains, don't pick 
group/herd behavior] 

As a Home for thing: 

O 'Lou' - food chain 1 

□ 'Lou' - food chain 2 



| Done 1 



Prev 



Next 
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Setup Story Brain 



StoryPAL 



World: Untitled 




Select the other* types of behavior your thing has: 
Pick no more than 1 from each group: 



O Poisonable 
CD Poison-biter 



CD Fetch thrown things 
CD Throws things 
CD Fet enable thing 

CD Storable food 

CD Mate eats food store 



□ Ambushable 
t=J Ambusher 

CD 1st Ambushinq Place 
CD 2nd. Ambushing Place 
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Select your thing's relation to humanoi'ds <StoryPAL>, if any: 



Pick no more than 1 
from this page: 



O Place for fire/cook 

□ Picnic food 

□ Place for picnic 

CD Place to store food 

CD Obstacle-like 

CD Player of 'catch' 

CD Throwable thinq 

CD Fetches thrown thing 



d qardeninq tool 
CD Place to store tools 
C3 place for garden 
CD seed 



CD Home 

CD Food to store G home 

CD Missile-like 

CD Hurlable impaler 
■■ Impalable-killable 



□one 



Pr ev 



Next | 
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( Import FDQf- 



M 



>l 1 |g 1314 151 617 181 9 1101 ll ljel 15l 14l 15ITH1 s (fr^ 
m7M8ll9lS0ISllS2ie3le4ie5|g6le7lS8l 



1H 



I 



FlG D 29 



The ICxpcrt System Main Screen Melius 



r File Uiew Edi t Run Setup St ory Brain 
StoruPAL/ 




Fining 
Z- I cons 

C 1 ass 

Chars . 

Dec is i on 

♦Chars 

S i tuat ion 

Meta-PF 



U i eu 



X- Kecj ion 
X- Radar 
K- Face 

Li fe Si gns 
X- Menory 



Run 



Go 

S tep 
Reset 



F*i le 



Upen , . 

S ave . . 
C lose 
New 

Change L> i r 
Erase . . 
fibout . . 



K- Qu i t 



Setup 
X-Sys ten Path 

Icon Path 
K-S tory De lay 
X-User Nane 
H'JoyS t icl< 
X S t icl< Speed 
XBrain I Q 

Mead On 
x-Saue 




S t a tus 
P rob lens 
S t rategy 
Focus 
Log On 
Defau Its 



S tory 



X- Reco rci On 
X- ftuto-S top 
Pa i n Leve 1 
Fear Leuel 



menus .bmp 



FlO= 3 



File Uiew Edit Run Setup Story Brain 



S toryPflL 



World: AFRICA 



□ r 



Op t i ons 



s i | Situation | 



Next 

NO OP 
NOOP 
NOOP 
NOOP 
NOOP 



Nane 



Ril 



Ri2 



Rel-Op Parn 



HighlNear 



SELF 
SELF 
SELF 
SELF 

Self 



hi 

NONE 
NONE 
NONE 
NONE 



DIST<X 

NONE 

NONE 

NONE 

NONE 



100 
0 
0 
0 
0 







Problen/SubGoa 1 




Opt ions 










P/-SQ NAME: G33 CHID \ 

SITUATION: HiqhINear ' 

STRATEGY: G30 CHID 7 


LEUEL: 230 

ORIGIN: GENETIC j Sffl 




Action 


/ 


Predict LookForSi 


HouLook juf 




227 CHID 

NONE 

NONE 

NONE 

NONE 




True Angthinq 
True NONE 
True NONE 
True NONE 
True NONE 


360-SCAN 
NONE 
NONE 
NONE ' 
NONE 


1 




ail ~~ 


f ~ S t rategy 




} Opt ions 






NAME: G30 CH13- 1 






assure a dead CHID 


get 611 (212 CHomelD 


qet fill G12 C1od1J« ==■ 


■«-Plans 


seeinq a struck CHID 
near CHID a at CIrnpD 

w 


safe Q6 CHornelD 
G8 CHomelD 


safe Q6 CTodID jOtf 
G8 CTodID ggf 

m 





pblsubsl.bmp 



FIG. 30A-I 



[Get__Next_SX] - FantasyTime False 
[Deep Thought] - Ctime : 1 

Scanning strategy find something to do rf s : 

No rfs present. 
Scanning ©14 rf s : 

No rfs present . 

SxC(l) : 

RxName X Y " Decision Speed Rads Reason Situation 



StoryPAL 


232 


214 


NIL 


0 


1 


. 67 


MARV 


NIL 


lion 


243 


254 


race to Lowl 


0 


2 


. 62 


RF-SCAN 


LowINear 


tree 


108 


50 


don' t move 


0 


6 , 


, 28 


RF- SCAN 


Anything 


native 


269 


10 


wander 


0 


1 , 


. 58 


RF-SCAN 


Anything 


rabbi t 


2 


259 


explore 


0 " 


4 , 


,43 


RF-SCAN 


Anything 


rabbit 


257 


111 


explore 


0 


5 . 


, 99 


RF-SCAN 


Anything 


deer 


441 


314 


patrol 


0 


1 . 


84 


RF-SCAN 


Anything 


grass 


29 


326 


don' t move 


0 


5 . 


26 


RF-SCAN 


Anything 


grass 


323 


347 


don ' t move 


0 


0 . 


38 


RF-SCAN 


Anything 


grass 


335 


86 


don' t move 


0 . 


5 . 


83 


RF-SCAN 


Anything 



FantasyTime False 



180 20 2H1 



[What_Now_Porpoise] 
Problem: ©33 [HI] 
Row : 1 

Dsd: ©27 [HI] 

Reg: TIRED 
Value: 10 
[Set_New_Problem] 
[Find_Strategy] 

[Find_Start ing_Place_In_Stra tegy ] 



SUB-P/SG NAME: 
SUB-P/SG NAME: 
SUB-P/SG NAME: 
SUB-P/SG NAME: 
SUB-P/SG NAME : <s 
SUB-P/SG NAME: (s 
HIT Strategy 
Strat . :@30 [HI] 
Plan:get ©11 ©12 

Row : 2 
SubGoal : ©8 [Homel] 

Row : 1 



seeing a struck 
safe ©6 [Homel] 
safe ©6 [Topi] 
near [HI] & at 
©8 [Homel] 
©8 [Topi] 



- FantasyTime False 
[HI] 



[Imp] 



[Homel] 



[Strat . Make_Deci sion] 

[Predicting Strategy] Try: 1 of 25 

Trial DSD: ©19 ©12 [Homel] 
[Get_Next_SX] - FantasyTime True 

Ending SxT ( 1 ) : . 

RxName X Y Decision Speed Rads Reason Situation 



StoryPAL 


219 


197 


©19 ©12 [Homel] 


21 


2 


. 22 


MARV 


NIL 


lion 


236 


23 0 


race to Lowl 


24 


1 


. 84 


RF-SCAN 


LowINear 


tree 


108 


50 


don' t move 


0 


6 


. 13 


RF-SCAN 


Anything 


native 


268 


1 


wander 


10 


4 . 


. 70 


RF-SCAN 


Anything 


rabbit 


11 


259 


explore 


10 


6 , 


.21 


RF-SCAN 


Anything 


rabbit 


264 


104 


explore 


10 


0 . 


67 


RF-SCAN 


Anything 


deer 


435 


292 


patrol 


22 


1 . 


84 


RF-SCAN 


Anything 


grass 


' 29 


326 


•don ' t move 


0 


0 . 


67 


RF-SCAN 


Anything 


grass 


3 23 


347 


don ' t move 


0 


1 . 


52 


RF-SCAN 


Anything 


grass 


3 3^5 


86 


don ' t move 


0 


0 . 


00 


RF-SCAN 


Anything 



(What_Now_Porpoise ] : FantasyTime True 
[Next_N Subgoals_Reached] - FantasyTime True 

SUB-P7SG NAME: safe ©6 [Homel] 

No next (n) subgoal found. 

[Predicting Strategy] Try: 2 of 25 

Trial DSD: ©19 ©12 [Homel] 
[Get_Next_SX] • FantasyTime True 



FIG. 30,4-2 



Ending SxT < 2 ) : 

RxName X Y Decision Speed Rads Reason Situation 



206 


180 


©19 ©12 [Home I] 


21 


2 


. 22 


MARV 


NIL 


225 


208 


race to Lowl 


24 


2 


. 05 


RF-SCAN 


LowINear 


108 


50 


don 7 t move 


0 


6 , 


. 13 


RF-SCAN 


Anything 


267 


10 


wander 


10 


4 , 


. 70 


RF-SCAN 


Anything 


13 


268 


explore 


10 


5 . 


, 01 


RF-SCAN 


Anything 


273 


104 


explore 


10 


6 , 


, 27 


RF-SCAN 


Anything 


429 


270 


patrol 


22 


1 , 


, 84 


RF-SCAN 


Anything 


29 


326 


don ' t move 


0 


0 , 


67 


RF-SCAN 


Anything 


323 


347 


don ' t move 


0 


1 , 


52 


RF-SCAN 


Anything 


335 


86 


don ' t move 


0 


0 . 


00 


RF-SCAN 


Anything 



StoryPAL 
1 ion 
tree 
native 
rabbi t 
rabbit 
deer 
grass 
grass 
grass 

(What_Now_Porpoise] : FantasyTime True 
[Next_N Subgoals__Reached] - FantasyTime True 

SUB-P7SG NAME: safe ©6 [Homel] 

No next(n) subgoal found. 

(Predicting Strategy) Try: 3 of 25 
' Trial DSD: ©19 ©12 [Homel] 
[Get Next_SX] - FantasyTime True 



Ending SxT ( 3 ) : 
RxName X 



Decision 



Speed Rads Reason Situation 



StoryPAL 


193 


163 


©19 ©12 [Homel] 


21 


2 


. 22 


MARV 


NIL 


lion 


211 


188 


race to Lowl 


24 


2 


, 17 


RF-SCAN 


LowINear 


tree 


108 


50 


don ' t move . 


0 


6 , 


, 13 


RF- SCAN 


Anything 


native 


266 


19 


wander 


10 


4 , 


, 70 


RF-SCAN 


Anything 


rabbit 


16 


258 


explore 


10 


1 . 


,20 


RF-SCAN 


Anything 


rabbit 


265 


96 


explore 


10 


2 , 


,36 


RF-SCAN 


Anything 


deer 


423 


248 


patrol 


22 


1 , 


.84 


RF-SCAN 


Anything 


grass 


29 


326 


don ' t move 


0 


0 . 


, 67 


RF-SCAN 


Anything 


grass 


323 


347 


don ' t move 


0 


1 . 


, 52 


RF-SCAN 


Anything 


grass 


335 


86 


don ' t move 


0 


0 . 


00 


RF-SCAN 


Anything 



[What_Now_Porpoise] : FantasyTime True 
[Next_N Subgoals_Reached] - FantasyTime True 
SUB-P7SG NAME: safe @6 [Homel] 



No next (n) subgoal found. 1 

[Predicting Strategy] Try: 4 of 25 I 
Trial DSD: ©19 ©12 [Homel] ( 
[Get_Next__SX] - FantasyTime True t 

Ending SxT (4 ) : ) 

RxName X Y Decision Speed Rads Reason Situation 



StoryPAL 


180 


146 


©19 ©12 [Homel] 


21 


2 


. 22 


MARV 


NIL 


lion 


196 


168 


race to Lowl 


24 


2 


.19 


RF-SCAN 


LowINear 


tree' 


108 


50 


don' t move 


0 


6 


.13 


RF-SCAN 


Anything 


native 


265 


28 


wander 


10 


4 


.70 


RF-SCAN 


Anything 


rabbit 


12 


248 


explore 


10 


1 . 


. 96 


RF-SCAN 


Anything 


rabbit 


276 


85 


move from Lowl 


16 


0 . 


. 75 


RF-SCAN 


LowINear 


deer- 


417 


226 


patrol 


22 


1 . 


. 84 


RF-SCAN 


Anything 


grass 


29 


326 


don ' t move 


0 


0 . 


67 


RF-SCAN 


Anything 


grass 


323 


347 


don ' t move 


0 


1 , 


52 


RF-SCAN 


Anything 


grasps 


335 


86 


don ' t move 


0 


0 . 


00 


RF-SCAN 


Anything 



[What\ Now Porpoise] : FantasyTime True 
[NextNN Subgoals_Reached] - FantasyTime True 

SUB-M?7SG NAME: safe ©6 [Homel] 

No next (n) subgoal found. 

[Predicting Strategy] Try: 5 of 25 

Trial DSD: ©19 ©12 [Homel] 
[Get_Next_SX] - FantasyTime 'True 

i 




I 



FIG. 3 0A-3 



5 



Ending SxT ( 5) : 

RxName X Y Decision Speed Rads Reason Situation 



StoryPAL 


167 


129 


®19' ©12 [Homel] 


21 


2 


. 21 


MARV 


NIL 


lion 


181 


148 


race to Lowl 


24 


2 


. 20 


RF - SCAN 


LowINear 


tree 


108 


50 


don ' t move 


0 


6 


. 13 


RF-SCAN 


Anything 


native 


264 


37 


wander 


' 10 


4 


. 70 


RF- SCAN 


Anything 


rabbit 


15 


238 


explore 


10 


1 


.22 


RF-SCAN 


Anything 


rabbit 


278 


94 


explore 


10 


5 


. 01 


RF- SCAN 


Anything 


deer 


411 


204 


patrol 


22 


1 


. 84 


RF-SCAN 


Anything 


grass 


29 


326 


don ' t move 


0 


0 


. 67 


RF-SCAN 


Anything 


grass 


323 


347 


don ' t move 


0 


1 


. 52 


RF-SCAN 


Anything 


grass 


335 


86 


don ' t move. 


0 


0 


. 00 


RF-SCAN 


Anything 


[What Now 


Porpoise] 


: FantasyTime True 












[Next N Subgoals Reached] - FantasyTime 


True 










SUB-P/SG 


NAME: safe ©6 [Homel] 












No next(n) subgpal found. 












[Predicting Strategy] Try: 6 of 25 












Trial DSD: ©19 @1 


2 [Homel] 












[Get_Next_ 


SX] • 


- FantasyTime True 












Ending SxT (6) : 














Situation 


RxName 


X 


Y 


Decision 


Speed 


Rads 


Reason 


StoryPAL 


154 


112 


©19 ©12 [Homel] 


21 


2 . 


21 


MARV 


NIL 


1 ion 


166 


128 


race to Lowl 


24 


2 , 


21 


RF-SCAN 


LowINear 


tree 


108 


50 


don ' t move 


0 


6 . 


13 


RF-SCAN 


Anything 


native 


263 


46 


wander 


10 


4 . 


70 


RF-SCAN 


Anything 


rabbit 


24 


237 


explore 


10 


0 . 


04 


RF-SCAN 


Anything 


rabbit 


277 


103 


explore 


10 


4 . 


63 


RF-SCAN 


Anything 


deer 


405 


182 


patrol 


22 


1 . 


84 


RF-SCAN 


Anything 


grass 


29 


326 


don ' t move 


0 


0 . 


67 


RF-SCAN- 


Anything 


grass 


323 


347 


don ' t move 


0 


1 . 


52 


RF-SCAN 


Anything 


grass 


335 


86 


don't move 


0 


0 . 


0 0 


RF-SCAN 


Anything 



[What_Now_Porpoise] : FantasyTime True 

Failed worse because of higher problem: the [HlJ's bite-OUCH 
Strategy prediction Failed. 



(S) LOST PLAN! 
Problem: ©33 [HI] 

Row : 1 
SubGoal : ®8 [Homel] 

Row : 1 

Dsd: ©27 [HI] 180 20 2H1 

Reg: TIRED 
Value: 10 
[Problem . Make_Decision] 



StoryPAL 


registers 
















HURT 




0 


HUNGER 


52 


TIRED 




12 


HURTRATE 0 


HUNGERRATE 


0 


TIREDRATE 


0 


MOTORRATE 




58 


FEAR 


230 


SURPRISE 




0 


DISAPPOINT 


230 


FRUSTRATED 




128 


HOPELESS 0 


PAIN/ JOY 


127 


TOTAL 


207 






0 




0 






0 




0 






0 




0 


SxX (1) : 




















RxName 


X 


Y 


Decision 




Speed 


Rads 


Reason 


Situation 


lion 


236 


230 


race to Lowl 


24 


l 


. 84 


PLUNKED 


LowINear 


tree 


108 


50 


don ' t move 




0 


5 


.36 


PLUNKED 


Anything 


native 


268 


1 


wander 




10 


4 


. 70 


PLUNKED 


Anything 


rabbi t 


671 


75 


explore 




10 


5 


.33 


PLUNKED 


Anything 


rabbit 


726 


341 


explore 




10 


5 


. 09 


PLUNKED 


Anything 


rabbit 


1 


254 


explore 




10 


0 


.47 


PLUNKED 


Anything 


rabbit 


261 


102 


explore 




10 


1 


. 05 


PLUNKED 


Anything 


deer 


435 


295 


patrol 




19 


1 


. 84 


PLUNKED 


Anything 


grass 


29 


326 


don' t move 




0 


0 


.50 


PLUNKED 


Anything 


grass 


323 


347 


don ' t move 




0 


2 


. 17 


PLUNKED 


Anything 


grass 


758 


94 


don' t move 




0 


3 


. 37 


PLUNKED 


Anything 



FIG. 



30A-V 



grass 
StoryPAL 



335 8 6 don't move 
226 193 ©27 [HI] 



[Get_Next_SX] - FantasyTime False 
(Deep Thought] - Ctime : 2 
Scanning strategy ®30 [HI] 



Warm 
Medium 
Cool 

Mixed hues 
Yellow 
Scanning ©33 
Warm 
Yellow 
Medium 



HEAT 
SIZE 
HEAT 
GREEN 
GREEN 
[HI] rfs: 
HEAT 
GREEN 
SIZE 



rfs : 
171 
86 
1 

128 
1 

171 
1 

86 



255 

170 

85 

255 

127 

255 
127 
170 



0 

21 



4 . 03 
1 . 84 



PLUNKED Anything 
MARV NIL 



SxC{2) : 



RxName 


X 


Y 


Decision 


Speed Rads 


Reason 


Situation 


StoryPAL 


226 


193 


NIL 


21 


1 


. 84 


MARV 


NIL 


lion 


236 


230 


race to Lowl 


24 


1 


. 84 


RF-SCAN 


LowINear 


tree 


108 


50 


don' t move 


0 


5 


.36 


RF-SCAN 


Anything 


native 


268 


1 


wander 


10 


4 


.70 


RF- SCAN 


.Anything 


rabbit 


1 


254 


explore 


10 


0 . 


.47 


RF-SCAN 


Anything 


rabbi t 


261 


102 


move from Lowl 


10 


1 , 


, 05 


RF-SCAN 


LowINear 


deer 


435 


295 


patrol 


19 


1 . 


84 


RF-SCAN 


Anything 


grass 


29 


326 


don't move 


0 


0 . 


50 


RF-SCAN 


Anything 


grass 


323 


347 


don' t move 


0 


2 . 


17 


RF-SCAN 


Anything 


grass 


335 


86 


don ' t move 


0 


4 . 


03 


RF-SCAN 


Anything 



[ Wha t_Now_Porpoi se ] 
Problem: ©33 [HI] 
Row : 
Dsd : 
Reg : 
Value : 



FantasyTime False 



1 

©27 [HI] 180 20 2H1 

TIRED 
10 

[Find__Strategy] 

[Find_Starting_Place_In_StrategyJ 

SUB-P/SG NAME: seeing a struck [HI] 



FantasyTime False 



SUB-P/SG NAME 
SUB-P/SG NAME: 
SUB-P/SG NAME: 
SUB-P/SG NAME: 
SUB-P/SG NAME: 
HIT Strategy 
Strat . :@30 [HI] 
Plan:get ©11 ©12 

Row : 2 
SubGoal: ©8 [Homel] 

Row : 1 



safe ©6 [Homel] 
safe ©6 [Topi] 
near [HI] & at 
©8 [Homel] 
©8 [Topi] 



[Homel] 



[imp] 



[Strat . Make_Decision] 

[Predicting Strategy] Try: 1 of 25 

Trial DSD: ©19 ©12 [Homel] 
[Get_Next_SX] - FantasyTime True 



Ending SxT ( 1 ) : 


t 














RxName 


X 


Y 


Decision 


Speed 


Rads . 


Reason 


Situation 


StoryPAL 


212 


176 


l®19 ©12 [Homel] 


21 


2 


.26 


MARV 


NIL 


lion 


229 


206 


\race to Lowl 


24 


1 


. 83 


RF-SCAN 


LowINear 


tree 


108 


50 


don ' t move 


0 


6 


. 13 


RF-SCAN 


Anything 


native 


267 


10 


wander 


10 


4 


. 70 


RF-SCAN 


Anything 


rabbi t 


10 


257 


explore 


10 


5 . 


. 96 


RF-SCAN 


Anything 


rabbit 


266 


87 


move from Lowl 


16 


1 , 


. 20 


RF-SCAN 


LowINear 


deer 


429 


276 


patrol 


19 


1 . 


. 84 


RF-SCAN 


Anything 


grass 


29 


326 


don ' t move 


0 


0 . 


67 


RF-SCAN 


Anything 


grass 


323 


347 


don ' t move 


0 


1 . 


52 


RF-SCAN 


Anything 
Anything 


grass 


335 


86 


don ' t move 


0 


0 . 


00 


RF-SCAN 



\ 



FIG. 30A-5 



[What_Now_Porpoise] : FantasyTime True 
(Next__N Subgoals_Reached] - FantasyTime True 

SUB-P7SG NAME: safe ©6 [Homel] 

No next(n) subgoal found. 

[Predicting Strategy] Try: 2 of 25 

Trial DSD: ©19 ©12 [Homel] 
[Get_Next_SX] - FantasyTime True 



Ending SxT ( 2 ) : 
RxName X 


Y 


Decision 


Speed 


Rads 


Reason 


Situation 


StoryPAL 


198 


159 


©19 ©12 [Homel] 


21 


2 


. 26 


MARV 


NIL 


1 ion 


217 


185 


race to Lowl 


24 


2 


. 09 


RF-SCAN 


LowINear 


tree 


108 


50 


don ' t move 


0 


6 


. 13 


RF- SCAN 


Anything 


native 


266 


19 


wander 


10 


4 


. 70 


RF-SCAN 


Anything 


rabbit 


' 19 


259 


explore 


10 


5 , 


. 98 


RF-SCAN 


Anything 


rabbit 


272 


94 


explore 


10 


5 , 


,42 


RF-SCAN 


Anything 


deer 


423 


257 


patrol 


19 • 


1 . 


, 84 


RF-SCAN 


Anything 


grass 


29 


326 


don ' t move 


0 


0 . 


67 


RF-SCAN 


Anything 


grass 


323 


347 


don ' t move 


0 


1 . 


52 


RF-SCAN 


Anything 


grass 


335 


86 


don' t move 


0 


0 . 


00 


RF-SCAN 


Anything 



[What_Now_Porpoise] : FantasyTime True 
(Next_N Subgoals_Reached] - FantasyTime True 

SUB-P/SG NAME: safe @6 [Homel] 

No next (n) subgoal found. 



[Predicting Strategy] Try: 3 of 25 

Trial DSD : ©19 ©12 [Homel] 
[Get_Next_SX] - FantasyTime True 

Ending SxT (3) : 



RxName 


X 


Y 


Decision 


Speed 


Rads 


Reason 


Situation 


StoryPAL 


184 


142 


©19 ©12 [Homel] 


21 


2 


. 26 


MARV 


NIL 


1 ion 


202 


165 


race to Lowl 


24 


2 


.20 


RF-SCAN 


LowINear 


tree 


108 


50 


don't move 


0 


6 


. 13 


RF-SCAN 


Anything- 


native 


265 


28 


wander 


10 


4 


.70 


RF-SCAN 


Anything 


rabbit 


27 


253 


explore 


10 


0 


. 60 


RF-SCAN 


Anything 


rabbit 


284 


83 


move from Lowl 


16 


0 . 


. 72 


RF-SCAN 


LowINear 


deer 


417 


238 


patrol 


19 


1 , 


, 84 


RF-SCAN 


Anything 


grass 


29 


326 


don ' t move 


0 


0 . 


67 


RF-SCAN 


Anything 


grass 


3 23 


347 


don ' t move 


0 


1 . 


52 


RF-SCAN 


Anything 


grass 


335 


86 


don ' t move 


0 


0 . 


00 


RF-SCAN 


Anything 



[What_Now_Porpoise] : FantasyTime True 



[Next_N Subgoals_Reached] - FantasyTime True 
SUB-P7SG NAME: safe ©6 [Homel] 
No next (n) subgoal found. 

[Predicting Strategy] Try: 4 of 25 

Trial DSD: ©19 ©12 [Homel] 
[Get_Next_SX] - FantasyTime True 
Ending SxT (4) : 



RxName 


X 

t 


Y 


Decision 


Speed 


Rads 


Reason 


Situation 


StoryPAL 


170 


125 


©19 ©12 [Homel] 


21 


2 


.26 


MARV 


NIL 


1 ion 


i8 7 


146 


race to Lowl 


24 


2 


.23 


RF-SCAN 


LowINear 


tree 


lb 8 


50 


don' t move 


0 


6 


. 13 


RF-SCAN 


Anything 


nat ive 


2l6 4 


37 


wander 


10 


4 . 


. 70 


RF-SCAN 


Anything 


rabbit 


G2 


261 


explore 


10 


5 . 


, 25 


RF-SCAN 


Anything 


rabbit 


274 


82 


explore 


10 


3 , 


, 09 


RF-SCAN 


Anything 


deer 


41 V 1 


219 


patrol 


19 


1 . 


84 


RF-SCAN 


Anything 


grass 


2 9 S 


326 


don ' t move 


0 


0 . 


67 


RF-SCAN 


Anything 


grass 


323 


^3 4 7 


don ' t move 


0 


1 . 


52 


RF-SCAN 


Anything 


grass 


335 


\8 6 


don ' t move 


0 


0 . 


00 


RF-SCAN 


Anything 


[What Now 


Porpoise] 


: FantasyTime True 











(Next__N Subgoals_Reached] - FantasyTime True 
SUB-P7SG NAME: safe ©6 [Homel] ' 
No next (n) subgoal found. 



\ 

I 



FIG . 30A-6 



[Predicting Strategy) Try; 5 of 25 

Trial DSD: ©19 ©12 [HomelJ 
[Get_Next_SX] - FantasyTime True 



Ending SxT { 5 ) : 
RxName X 


Y 


Decision 


Speed 


Rads 


StoryPAL 


156 


108 


©19 ©12 [Homel] 


21 


2 . 


, 26 


lion 


171 


127 


race to Lowl 


24 


2 , 


, 25 


tree 


108 


50 


don ' t move 


0 


6 . 


. 13 


nat ive 


263 


46 


wander 


10 


4 , 


.70 


rabbit 


40 


255 


explore 


10 


0 . 


. 62 


rabbit 


279 


73 


explore 


10 


0 . 


. 98 


deer 


405 


200 


patrol 


19 


1 . 


, 84 


grass 


29 


326 


don' t move 


0 


0 , 


, 67 


grass 


323 


347 


don ' t move 


0 


1 . 


. 52 


grass . 


335 


86 


don ' t move 


0 


0 . 


00 



Reason Situation 



MARV 

RF- SCAN 

RF-SCAN 

RF - SCAN 

RF-SCAN 

RF-SCAN 

RF-SCAN 

RF-SCAN 

RF-SCAN 

RF-SCAN 



NIL 

LowINear 
Anything 
Anything 
Anything 
Anything 
Anything 
Anything 
Anything 
Anything 



[What_Now_Porpoise] : FantasyTime True 
[Next_N Subgoals_Reached] - FantasyTime True 

SUB-P7SG NAME: safe ©6 [Homel] 

No next(n) subgoal found. 

[Predicting Strategy] Try: 6. of 25 

Trial DSD: ©19 ©12 [Homel] 
[Get_Next_SX] - FantasyTime True 

Ending SxT ( 6 ) : 



RxName 



X 


Y 


Deci sion 


Speed 


Rads 


Reason " 


Situation 


142 


91 


©19 ©12 [Homel] 


21 


2 


. 26 


MARV 


NIL 


156 


108 


race to Lowl 


24 


2 


. 24 


RF-SCAN 


LowINear 


108 


50 


don ' t move 


0 


6 . 


. 13 


RF-SCAN 


Anything 


262 


55 


wander 


10 


4 , 


. 7 0 


RF-SCAN 


Anything 


30 


259 


explore 


10 


3 , 


. 56 


RF-SCAN 


Anything 


284 


64 


explore 


10 


0 . 


, 94 


RF.-SCAN 


Anything 


399 


181 


patrol 


19. 


1 , 


, 84 


RF-SCAN 


Anything 


29 


326 


don' t move 


0 


0 , 


, 67 


RF-SCAN 


Anything 


323 


347 


don' t move 


0 


1 , 


. 52 


RF-SCAN 


Anything 


335 


86 


don' t move 


0 


0 . 


. 00 


RF-SCAN 


Anything 



StoryPAL 
lion 
tree 
native 
rabbit 
rabbit 
deer 
grass 
grass 
grass 

[What_Now_Porpoise] : FantasyTime True 
[Next__N Subgoals_Reached] - FantasyTime True 

SUB-P7SG NAME: safe ©6 [Homel] 

No next (n) subgoal found. 



FIG. 32 



SPACIO- TEMPORAL RELATIONSHIPS r 
IN SOFTWARE EMBODIMENT 



Relational 
Operator 



Meaning 



NONE This is the last line. Don't read any further. 

DIST>X The distance between Pil (usually the self-object, Ris) 

■ and Pi2 is greater than X 
DIST<X The distance between Pil and Pi2 is less than X 

FASTER Pil is moving faster (more units of distance per 
Current Situation) than Pi2 

SLOWER Pil is moving slower (less units of distance per 
Current Situation) than Pi2 

TOWARD 2 Pil is moving toward Pi2 ("toward" = Radians in the 

Parm field. If the angle of movement is less than the 
Parm field's radians, Toward is True. Zero radians. is 
East or to the Pight on the screen) 

TOWARD 1 Pi2 is moving toward Pil 

AWAYFR2 Pil is moving away from Pi2 (parenthetical note on 
T0WARD2 applies here) 

AWAYFR1 Pi2 is moving away from Pil 

>ANGX The angle between Pil and Pi2 exceeds X (X is in 

radians ) 

<ANGX The angle between Pil and Pi2 is less than X (X is in 

radians) 

MOVE>X Pil is moving faster than X 

<LOCX Pil is at a location whose screen X-coordinate is less 

than X 

>LOCX Pil is at a location whose screen X-coordinate is 

greater than X 

<LOCY Pil is at a location whose screen Y-coordinate is less 

than Y 

>LOCY Pil is at a location whose screen Y-coordiriate is 

greater than Y 
1CL2BYX Pil is closer to Pi2 than X units of distance 
1FR2CYX Pil is farther from Pi2 than X units of distance 
FEEL The self Pi is feeling as per' what is here set out 



FlO= 33 



File Uiew Edit Run Setup Story Brain 



S toryPAL 



World: AFRICA 



□I 



+Chs 



Op t i ons 



Nane 



Situati on 



Dec i s ion 



Phan toil 



2LouSaf eGHome2 
I mpaler Hunter 
lLouSafeGiTop 
storable food 
2LouSaf eG2Top 
Drifter -default 
Food to store 
bouncer 



022 
023 
021 

026 
027 
028 



♦ HighllCloseaAtHofnell 
At Irnpal raSeelrnpal bl e 
HighlCloseaAtTopI 
Atrlate 

HighllCloseaAtTopH 
AtTopOfScreen 
AtSPDoingEating 
AtObstacle 



r+hide 5-t 

throu 33 

copy and do normal 13 
die 8 renew 

copy and do normal 5? 

urap north to south 157 

die a renew 0 

bounce 60 




hide 



G19 G12 CCFood] 
G19 G12 [Garden] 
plant the CSeed] 
G19 G12 [Seed) 
uater the CSeed] 
G19 G12 [Shed] 
REUSEl 



0 


0 


7 


SELF 


0 


0 


10 


0 


CFood 


0 


0 


10 


23 


Garden 


0 


0 


0 


19 


Garden 


0 


0 


10 


0 


Seed 


0 


0 


0 


18 


Seed 


0 


0 


10 


23 


Shed 


0 


0 


0 


0 


SELF 


0 



Do-ings Table 



Doing 
Number 


Doing Description 


Doing 
Number 


Doing Description 


-10 


Move the snme way as Ihe "Mil" Ri (his time 
or this current situation. Used for "copying" 
some other Thing, ns in flocking behavior. 


8 


Bitten 


-9 


Make a buzzing sound 


9 


Pounce 


-8 


Make a beeping sound 


10 


Throw 


-7 


Make random, or randomize a value. 


1 1 


Calch 


-6 


When Things move off Ihe top of the screen, 
bring them back lo the bottom of ihe screen. 


12 


Fly/Swim 


-5 


Move absolute. A fixed compass setting as 
opposed to some degrees relative lo 
something. 


13 


Siilintcd 


-4 


Default (On the Inst page of Ihe Thing 
Builder is the Thing's Default action) 


M 


Dead 


-3 


Be dead 


15 


Ilidc/Sit 


-2 


Move the same as the "Mil" Ri. i 


16 


Light Fire 


-\ 


Do what you did the last move (same 
direction and rate) 


17 


Burn 


0 


Normal (This and the following Do-ings) 


18 


Douse Fire 


1 


Chase 


19 


Reach 


2 


Flee 


20 


Door Open 


3 


Hungry 


21 


Table Set 


4 


Hurt 


22 


Sit & C:nl 


5 


Tired 


23 


Carry 


6 


Bite/Eat 


24 


Cooked 


7 


Rest 


25 


Cloaked (is (here and can interact 
and be interacted with, but is 
invisible) 




26 


Using a tool 



FIG. 



5 7/^ 



Fx l€ 



Uiew Edit Run Setup Story Brain 



StoryPflL 



World: AFRICA 



DsD 




Ont ions 



DsD Nane 



ftngle Rate Do Ri-Nane Register- Ualue 



G31 CBotmlD 0 0 6* HIT 

die 0 0 H SELF 

die a renew 0 0 -3 HIT 

ur ap north to south 0 10 -6 HIT 

move from Loul 180 16 2 Loul 

jump auag 180 20 4 HI 

G27 CHU 180 20 2 Hi 



HUNGER 



HURT 
TIRED 



FIG= 36 



File Uiew Edit Run Setup Stoni Brain 



StoryPAL 



World: AFRICA 



Op t i oris 



NAME; Lou 



PAGE; 



ITEM: 



21 



1A 



Pfs 



MetaPF <+) 



NetaPF <-> 



food competitor 
lLouNotAmbushabl e0-f3 
lLow-2 084 
lLou-3 09H 



All - HHT's 
Lou 1 heal /'rest 



High 2 groupies 
Non lou 1 
High i groupi es 
Lou 2 group! es 



FIG D 37 



File Uiew Edit Run Setup Story 
StonjPAL Mor-ld: AFRICA 



Bra in 



To select behavior, pick up to the stated number from each group: 



Pick one; 

■i Li Ye-animal-like 

CI "-But no metabolism 

Q Live-veqetable-like 

Q Mineral -like 

□ Mixed^ot her -like 



Pick zero to 2: 



CD Mag be eaten 
O Must eat 



Dp t l ons 



NAME; Hiqh 



Pick no more than 
one per food chain; 

a Top 1st food chain 
■Hiqh " 
O Lou " ■ 

□ Bot'm " 

□ Top 2nd food chain 
►-■Hiqh 

□ Lou " 
a Bot'm 

C Hotei StorgPal's 

tgpe is aluaus 

Lou 1st food chain} 



I Done | 
| Pr ev ] 
| Next | 



MetaPf 



Lion 



-Thing 
editor, 
Lion 



Pfs 



PAGE: \ 1 



ITEM; 



2-1 



high 2-* 

2HighNearTopII 
2High-2 
2High-3 
bouncer 



0*7 
088 
038 



Of 



All 



HHT J s 



MetaPF <-> 



High 1 groupies 
Lou 1 groupies 
Lou 2 groupies 
Non high 2 



-t-Chars . 



Opt l ons 



+Char . Nane 



Sit uat ion 



Dec i s i on 



high 2< r- 

Amb^Poi StagsDead019 
AmbxPoi Dies 020 
lLouSaf eGHomel 021 
2LouSafeGHome2 022 
ImpalerHunter 023 
lLouSafeGlTop 02-1 
storable food 



Phanton 



AtTopII 
Dead 

At AmbusherOrPoi snBtr 
Hi ghlClosedAtHomel 
HighllCloseaAtHornell 
At I mpal r 8SeeI mpal bl e 
HighlCloseaAtTopI 
AtMate 



die 8 reneu 65 

die 0 

die 0 

hide 10 

hide 5-t 

t hr ou 33 

copy and do normal 13 

die 8 reneu 48 



FIG D 3© 



* tu ^ S_torvj Brain 



sit 



ister Used 



86 170 



Sroal 1 



Sroal 
Medium 
Large 
Blue 
Mhi t e 
Red 
Yellou 
Mixed hues 
Cool 
Tepid 

Narm 



Hungr g 
UergHungrg 
St ar ving 
MaxHunger 
AngHunger 
Not Hungr g 
Hurt 
Suffer 
AngHur t 
NeedHealin 
MaxHur i 
Tired 
Sleepg 
Neediest 
AngTi r ed 
Max- 



LitingFire 

UsingGTool 

FireOn 

do normal 

Reaching 

Open 

end 



SIZE 

SIZE 

BLUE 

BLUE 

RED 

GREEN 

GREEN 

HEAT 

HEAT 

HEAT 



© 



HUNGER 

HUNGER 

HUNGER 

HUNGER 

HUNGER 

HUNGER 

HURT 

HURT 

HURT 

HURT 

HURT 

TIRED 

TIRED 

TIREO 

TIRED 

TIRED 



© 



DOING 
DOING 
DOING 
DOING 
DOING 
DOING 



© 



171 
1 

128 

1 

1 

128 
1 

86 
171 



106 

156 

255 

25H 

70 

0 

106 

156 

71 

125 

255 

106 

156 

125 

71 

255 



16 
26 
17 
0 

19 
20 
0 



170 
255 
127 
255 
255 
127 
255 
85 
170 
255 



155 

III 

255 
255 
71 
155 

lis 

1-H 

255 
155 
22-1 
1-H 

255 
255 



16 
26 
17 
0 

19. 
20 
0 
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Fi * e Uiew Edit Run 

StoryjPftL Nor Id: ftFR 









Name + Chars . Chars. 


OnFirePlac place to fnabe a fire FireOn 
NONE NONE 
NONE NONE 
NONE NONE 
NOME NONE 







S tai 










Opt ions 


Name 


Ualue 


Move Stopped 


Weight 


FaceM in 




HURT 


37 


-1 


-■t 


0 


106 




HUNGER 


83 


2 


1 


0 


106 




TIRED 


0 


2 


-4 


0 


106 




HURTRATE 


-10 


0 


0 


0 


-25 




HUNGERRATE 


0 


0 


0 


0 


-56 




TIREDRATE 


0 


0 


0 


0 


-25 




MOTORRATE 


13 


• 8 


3 


-100 


1 1 




FEAR 


228 


0 


0 


100 


90 




SURPRISE 


0 


0 


0 


40 


0 




DISAPPOINT 


0 


0 


0 


10 


0 




FRUSTRATED 


0 


0 


0 


10 


0 




HOPELESS 


0 


0 


0 


100 


0 




PAUWOY 


0 


0 


0 


0 


-127 




TOTAL 


215 


0 


0 


0 


0 



















Huh? <lion> 
<193,153> to<172,l<>3> Pads: 3.62 
Speed: 21 

Pf; 2High-3 098 Si: 

LouIINear 

Dsd: race to LouII Do: I Rel.Rx: 
deer at <H1,179> 



FlGo -42 



Enter icon path: 



c:\braitt 



t ° k i ( n ° ) 



Set pain 


thresho Id ; 








[ ° k 





Set fear threshold: 



SB 



( ° k I ( "° ) 



FlGo -43 



Data Structure 


Created Id Window... 


Found Id 
Menu... 


Used In Otbcr 

Data Structure Window(s)... 


Pi or Ri (Class) 


Class 


Edit 


Situation & Decision 


Kh or Kl (Char) 


Chars. 


Edit 


Class 


PF or Pf (-rChar) 


+Chars. 


Edit 


Class & MetaPf 


Si (Situation-abstracted) 


Sit uation 


Edit 


+Char, Problem/Subgoal & Strategy 


Problcm/Subgoal 


Problems 


Brain „ 


It isn't 


Strategy & Plans 


Strategy 


Brain 


Problcm/Subgoal- 


Do - ing 


Coded in the program 


none 


Decision 


DsD (Decision) 


Decision 


Edit 


+ Char & Problem/Subgoal 


MctaPf 


Meta-Pf 


Edit 


It isn't 


Focus 1 


hocus 


Brain 


Problem/Subgoal 



&o/<z>>z 
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STEPS IN A COMPUTER PROGRAM FOR 
IMPLEMENTING EMOTIONAL EXPRESSION IN 
AN AUTONOMOUS DECISION SYSTEM 



STORING IN A COMPUTER IN FORMAT I ON -STORAGE DEVICE PLANNING DATA 
PROVIDIN G PLAN CAPABILITY TO SUCH AUTONOMOUS DECISION SYSTEM 

r — - 

USING INFORMATION REGARDING ENVIRONMENTAL CIRCUMSTANCES 
OF SUCH AUTONOMOUS DECISION SYSTEM, PROVIDING 
PLANNING SEL ECTIONS AND PLANNING STATUS 

I 

USING INFORMATION ABOUT CURRENT SUCH PLANNING 

STATUS, PROVIDING EMOTION -SOURCE DATA 

r 

USING CURRENT SUCH EMOTION-SOURCE DATA, 
PROVIDING CURRENT EMOTION ST ATUS 

T — 

MAKING AND STORING IN SUCH COMPUTER IN FORMAT I ON -STORAGE DEVICE 
A SUBSET OF SUCH PLANNING DATA ABOUT (1) A FIRST PLAN 
REGARDING WHETHER THE SELF OF SUCH AUTONOMOUS DECISION SYSTEM 
IS THEN COPYING WITH A NON-SELF CREATURE OF SUCH ENVIRONMENTAL 
CIRCUMSTANCES, AND (2) A SECOND PLAN REGARDING WHETHER A SUCH 
NON-SELF CREATURE IS THEN COPYING WITH SUCH SELF 

i 

WHEREIN SUCH PLANNING DATA COMPRISES: A SET. OF 
HIERARCHICALLY-ORGANIZED ABSTRACT SELF-PROBLEM 
REPRESENTATIONS, AND IN ASSOCIATION WITH ESSENTIALLY EACH 
OF SUCH ABSTRACT SELF-PROBLEM REPRESENTATIONS, A SET OF 
HIERARCHICALLY-ORGANIZED ABSTRACT SELF-PLAN 
REPRESENTATIONS EACH COMPRISING A SET OF ABSTRACT SELF- 
SUBGOAL REPRESENTATIONS, WHEREIN AT LEAST ONE SUCH 
. ABSTRACT SELF-PROBLEM REPRESENTATION IS THE • PROBLEM OF 
THE SELF NOT-COPYING WITH A SU CH NON-SELF CREATURE 



FIGd 44A-2 



___ i_ 

EVALUATING AN EXTENT OF A SUCH COPYING BY 

i 

(1) MAKING A SIMILARITY COMPARISON OF A DECISION OF A 
SUCH NON-SELF CREATURE WHEN IN A FIRST CIRCUMSTANCE 
SITUATION TO A DECISION OF THE SELF IF THE SELF WERE IN 
SUCH FIRST CIRCUMSTANCE SITUATION 



5 





(2) EVALUATING SUCH COMPARISON FOR DEGREE OF 
SIMILARITY 


DECISION 




1 


f 


INCLUDING IN SUCH EMOTION-SOURCE DATA INFORMATION 
WITH SUCH EXTENT OF A SUCH COPYING 


CORRELATED 



i 

INCLUDING IN SUCH CURRENT EMOTION STATUS A STATUS OF NOT- 
COPYING EMOTION OF SUCH AUTONOMOUS DECISION SYSTEM 

i 

ASSIGNING TO SUCH NON-SELF CREATURE AND STORING IN SUCH 
COMPUTER- INFORMATION STORAGE DEVICE A KIND-NUMBER REPRESENTING 
AN EXTENT OF RELATIVE SIMILARITY OF SUCH NON-SELF CREATURE TQ 
SUCH SELF ' S OW N KIND 

1 — 

ADJUSTING SUCH KIND-NUMBER TO AT LEAST PARTIALLY REFLECT SUCH 
EXTENT OF A SUCH COPYING BY SUCH NON-SELF CREATURE. 



ASSIGNING AN EMOTION AMOUNT, FOR ASSOCIATION WITH SUCH. 
EMOTION-SOURCE DATA EFFECTING SUCH CURRENT EMOTION STATUS OF 
SUCH NO.T-COPYING EMOTION OF SUCH AUTONOMOUS DECISION SYSTEM, 
ESSENTIALLY PROPORTIONAL TO A CURRENT SUCH KIND-NUMBER 
ASSOCIATED WITH SUCH NON-SELF CREATURE WHEREIN SUCH EMOTION- 
SOURCE DATA COMPRISES DATA REGARDING FEAR, HOPELESSNESS, AND 
DISAPPOINTMENT , COMPRISING 

i 

(1) INCREMENTAL REPRESENTATIONS OF "FEAR" IN AMOUNTS 
ESSENTIALLY HIERARCHICALLY ORDERED ACCORDING TO SUCH 
HIERARCHICAL SET OF SELF-PROBLEM REPRESENTATIONS 



] 



FlGn 4 4A-3 



, i 

(2) INCREMENTAL REPRESENTATIONS OF "HOPELESSNESS" • ■ 
DEPENDING ESSENTIALLY UPON WHETHER, IN THE OPERATION OF 
SUCH PLANNING MEANS, IN THE SELF- PLAN REPRESENTATION FOR 
THE HIGHEST ACTIVE HIERARCHICAL SELF-PROBLEM 
REPRESENTATION, NONE OF THE SUBGOAL REPRESENTATIONS IS 
ACTIVE 

I 

INCLUDING IN SUCH EMOTION- SOURCE DATA AN EMOTION AMOUNT, 
ASSOCIATED WITH SUCH PROBLEM OF THE SELF NOT -COPYING WITH SUCH 
NON-SELF CREATURE, WHICH IS STRUCTURED AND ARRANGED TO BE 
ESSENTIALLY PROPORTIONAL TO SUCH KIND-NUMBER ASSOCIATED WITH 
SUCH NON-SELF CREATURE 

3 ~ 

PROVIDING SENSOR MEANS FOR PROVIDING SENSOR DATA FOR SUCH 
AUTONOMOUS DECISION SYSTEM 

i 

USING SUCH CURRENT EMOTION STATUS, PROVIDING DATA REGARDING 
BODY EXPRESSION TO PROVIDE OUTPUT SIGNALS FOR USE BY 
EFFECTORS; WHEREIN SUCH DATA REGARDING BODY EXPRESSION 
COMPRISES DATA REGARDING SMILES AND FROWNS 

I : 

WHEREIN A SMILE IS ASSOCIATED WITH A CREATURE FEELING COPIED 
WITH AND A FROWN IS ASSOCIATED- WITH A CREATURE FEELING NOT 
COPIED WITH 



, sl ; 

WHEREIN SUCH EMOTION- SOURCE DATA FURTHER COMPRISES A PROVIDER 
OF DATA REGARDING FRUSTRATION, SURPRISE, AND MUSCLE RELIEF 



